Fourmolize

kderme · kderme · commit a0261c326e1d · 2026-03-15T02:43:58.000+02:00
diff --git a/cardano-chain-gen/src/Cardano/Mock/ChainSync/Server.hs b/cardano-chain-gen/src/Cardano/Mock/ChainSync/Server.hs
@@ -30,6 +30,7 @@ module Cardano.Mock.ChainSync.Server (
 import Cardano.Mock.Chain hiding (rollback)
 import Cardano.Mock.ChainDB
 import Cardano.Mock.ChainSync.State
+import Cardano.Network.NodeToClient
 import Codec.Serialise.Class (Serialise)
 import Control.Concurrent (threadDelay)
 import Control.Concurrent.Async
@@ -49,6 +50,7 @@ import Control.Tracer
 import Data.ByteString.Lazy.Char8 (ByteString)
 import qualified Data.Map.Strict as Map
 import Data.Maybe (fromJust)
+import qualified Network.Mux as Mx
 import qualified Network.Socket as Socket
 import Network.TypedProtocol.Peer (Peer (..))
 import qualified Network.TypedProtocol.Stateful.Peer as St
@@ -83,12 +85,10 @@ import Ouroboros.Network.Block (
   genesisPoint,
   mkSerialised,
  )
-import qualified Network.Mux as Mx
 import Ouroboros.Network.Channel (Channel)
 import Ouroboros.Network.Driver.Simple (runPeer)
 import qualified Ouroboros.Network.Driver.Stateful as Stateful
 import Ouroboros.Network.Magic (NetworkMagic)
-import Cardano.Network.NodeToClient
 import Ouroboros.Network.Protocol.ChainSync.Server (
   ChainSyncServer (..),
   ServerStIdle (..),
diff --git a/cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Conway.hs b/cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Conway.hs
@@ -66,7 +66,7 @@ module Cardano.Mock.Forging.Tx.Conway (
   addValidityInterval,
 ) where
 
-import Cardano.Ledger.Address (Addr (..), AccountAddress (..), AccountId (..), Withdrawals (..))
+import Cardano.Ledger.Address (AccountAddress (..), AccountId (..), Addr (..), Withdrawals (..))
 import Cardano.Ledger.Allegra.Scripts
 import Cardano.Ledger.Alonzo.Scripts
 import Cardano.Ledger.Alonzo.Tx (IsValid (..))
diff --git a/cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Generic.hs b/cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Generic.hs
@@ -54,11 +54,11 @@ import Cardano.Mock.Forging.Tx.Alonzo.ScriptsExamples
 import Cardano.Mock.Forging.Types
 import Cardano.Prelude hiding (length, map, (.))
 import Cardano.Protocol.Crypto (hashVerKeyVRF)
+import Data.Array.Byte (ByteArray (..))
+import qualified Data.ByteString.Short as SBS
 import Data.Coerce (coerce)
 import Data.List (nub)
 import Data.List.Extra ((!?))
-import Data.Array.Byte (ByteArray (..))
-import qualified Data.ByteString.Short as SBS
 import qualified Data.Map.Strict as Map
 import Data.Maybe (fromJust)
 import qualified Data.Sequence.Strict as StrictSeq
diff --git a/cardano-chain-gen/test/Test/Cardano/Db/Mock/Unit/Babbage/Reward.hs b/cardano-chain-gen/test/Test/Cardano/Db/Mock/Unit/Babbage/Reward.hs
@@ -11,9 +11,9 @@ module Test.Cardano.Db.Mock.Unit.Babbage.Reward (
   singleMIRCertMultiOut,
 ) where
 
+import Cardano.Ledger.Address (Withdrawals (..))
 import Cardano.Ledger.Coin (Coin (Coin), DeltaCoin (DeltaCoin))
 import Cardano.Ledger.Keys (KeyHash (KeyHash))
-import Cardano.Ledger.Address (Withdrawals (..))
 import Cardano.Ledger.Shelley.TxCert
 import Cardano.Mock.ChainSync.Server (IOManager, addBlock)
 import Cardano.Mock.Forging.Interpreter (withShelleyLedgerState)
diff --git a/cardano-db-sync/src/Cardano/DbSync.hs b/cardano-db-sync/src/Cardano/DbSync.hs
@@ -25,6 +25,7 @@ module Cardano.DbSync (
   extractSyncOptions,
 ) where
 
+import Cardano.Network.NodeToClient (IOManager, withIOManager)
 import Control.Concurrent.Async
 import Control.Monad.Extra (whenJust)
 import qualified Data.Strict.Maybe as Strict
@@ -33,7 +34,6 @@ import Data.Version (showVersion)
 import qualified Hasql.Connection as HsqlC
 import qualified Hasql.Connection.Setting as HsqlSet
 import Ouroboros.Consensus.Cardano (CardanoHardForkTrigger (..))
-import Cardano.Network.NodeToClient (IOManager, withIOManager)
 import Paths_cardano_db_sync (version)
 import System.Directory (createDirectoryIfMissing)
 import Prelude (id)
diff --git a/cardano-db-sync/src/Cardano/DbSync/Api/Ledger.hs b/cardano-db-sync/src/Cardano/DbSync/Api/Ledger.hs
@@ -12,8 +12,8 @@ import Cardano.Ledger.Alonzo.Scripts
 import Cardano.Ledger.Babbage.Core
 import Cardano.Ledger.Babbage.TxBody (BabbageTxOut)
 import Cardano.Ledger.BaseTypes
-import qualified Cardano.Ledger.Core as Ledger (TxOut)
 import Cardano.Ledger.Core (Value)
+import qualified Cardano.Ledger.Core as Ledger (TxOut)
 import Cardano.Ledger.Mary.Value
 import Cardano.Ledger.Shelley.LedgerState
 import Cardano.Ledger.TxIn
diff --git a/cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/StakeDist.hs b/cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/StakeDist.hs
@@ -24,8 +24,8 @@ import qualified Cardano.Ledger.Compactible as Ledger
 import Cardano.Ledger.Credential (Credential)
 import Cardano.Ledger.Keys (KeyRole (..))
 import qualified Cardano.Ledger.Shelley.LedgerState as Shelley
-import qualified Cardano.Ledger.State as Ledger
 import Cardano.Ledger.State (StakeWithDelegation (..))
+import qualified Cardano.Ledger.State as Ledger
 import Cardano.Ledger.Val ((<+>))
 import Cardano.Prelude
 import qualified Data.Map.Strict as Map
diff --git a/cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/Tx/Dijkstra.hs b/cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/Tx/Dijkstra.hs
@@ -14,9 +14,9 @@ import qualified Cardano.Db as DB
 import Cardano.DbSync.Era.Shelley.Generic.Metadata
 import Cardano.DbSync.Era.Shelley.Generic.Tx.Allegra (getInterval)
 import Cardano.DbSync.Era.Shelley.Generic.Tx.Alonzo (getPlutusSizes, mkCollTxIn, mkTxData, resolveRedeemers, rmCerts, rmInps, rmWdrl, txDataWitness)
-import Cardano.DbSync.Era.Shelley.Generic.Util (unScriptHash)
 import Cardano.DbSync.Era.Shelley.Generic.Tx.Shelley
 import Cardano.DbSync.Era.Shelley.Generic.Tx.Types
+import Cardano.DbSync.Era.Shelley.Generic.Util (unScriptHash)
 import qualified Cardano.Ledger.Alonzo.Scripts as Alonzo
 import qualified Cardano.Ledger.Alonzo.Tx as Alonzo
 import Cardano.Ledger.Alonzo.TxAuxData (getAlonzoTxAuxDataScripts)
diff --git a/cardano-db-sync/src/Cardano/DbSync/Era/Universal/Insert/Certificate.hs b/cardano-db-sync/src/Cardano/DbSync/Era/Universal/Insert/Certificate.hs
@@ -38,8 +38,8 @@ import Cardano.DbSync.Era.Universal.Insert.Pool (IsPoolMember, insertPoolCert)
 import Cardano.DbSync.Error (SyncNodeError)
 import Cardano.DbSync.Types
 import Cardano.DbSync.Util
-import Cardano.Ledger.BaseTypes
 import qualified Cardano.Ledger.Address as Ledger
+import Cardano.Ledger.BaseTypes
 import qualified Cardano.Ledger.BaseTypes as Ledger
 import Cardano.Ledger.Coin (Coin (..))
 import qualified Cardano.Ledger.Coin as Ledger
diff --git a/cardano-db-sync/src/Cardano/DbSync/Era/Universal/Insert/GovAction.hs b/cardano-db-sync/src/Cardano/DbSync/Era/Universal/Insert/GovAction.hs
@@ -45,6 +45,7 @@ import Cardano.DbSync.Error (SyncNodeError, mkSyncNodeCallStack)
 import Cardano.DbSync.Ledger.State
 import Cardano.DbSync.Util
 import Cardano.DbSync.Util.Bech32 (serialiseDrepToBech32)
+import Cardano.Ledger.Address (AccountAddress)
 import Cardano.Ledger.BaseTypes
 import qualified Cardano.Ledger.BaseTypes as Ledger
 import Cardano.Ledger.Coin (Coin)
@@ -57,15 +58,14 @@ import Cardano.Ledger.DRep (DRepState (..))
 import Cardano.Ledger.Keys (KeyRole (..))
 import qualified Cardano.Ledger.Plutus.CostModels as Ledger
 import Cardano.Ledger.Plutus.Language (Language)
-import Cardano.Ledger.Address (AccountAddress)
 import Cardano.Ledger.State (DRep (..))
 import Cardano.Prelude
-import Lens.Micro ((^.))
 import Control.Monad.Extra (whenJust)
 import qualified Data.Aeson as Aeson
 import qualified Data.ByteString.Lazy.Char8 as LBS
 import qualified Data.Map.Strict as Map
 import qualified Data.Text.Encoding as Text
+import Lens.Micro ((^.))
 import Ouroboros.Consensus.Cardano.Block (ConwayEra)
 
 insertGovActionProposal ::
diff --git a/cardano-db-sync/src/Cardano/DbSync/Era/Universal/Insert/Pool.hs b/cardano-db-sync/src/Cardano/DbSync/Era/Universal/Insert/Pool.hs
@@ -41,8 +41,8 @@ import qualified Cardano.Ledger.Keys as Ledger
 import qualified Cardano.Ledger.State as PoolP
 import Cardano.Prelude
 import Data.Array.Byte (ByteArray (..))
-import qualified Data.ByteString.Short as SBS
 import Data.ByteString.Short (ShortByteString (SBS))
+import qualified Data.ByteString.Short as SBS
 
 type IsPoolMember = PoolKeyHash -> Bool
 
diff --git a/cardano-db-sync/src/Cardano/DbSync/Ledger/Event.hs b/cardano-db-sync/src/Cardano/DbSync/Ledger/Event.hs
@@ -32,8 +32,8 @@ import Cardano.Ledger.Coin (Coin (..), CompactForm (..))
 import Cardano.Ledger.Conway.Governance
 import Cardano.Ledger.Conway.Rules as Conway
 import qualified Cardano.Ledger.Core as Ledger
-import qualified Cardano.Ledger.Rewards as Ledger
 import Cardano.Ledger.Hashes (SafeHash)
+import qualified Cardano.Ledger.Rewards as Ledger
 import Cardano.Ledger.Shelley.API (AdaPots, InstantaneousRewards (..))
 import Cardano.Ledger.Shelley.Rules (
   RupdEvent (RupdEvent),
diff --git a/cardano-db-sync/src/Cardano/DbSync/Sync.hs b/cardano-db-sync/src/Cardano/DbSync/Sync.hs
@@ -48,6 +48,19 @@ import qualified Data.Text as Text
 import qualified Network.Mux as Mux
 import Network.TypedProtocol.Peer (N (..), Nat (..))
 
+import Cardano.Network.NodeToClient (
+  ConnectionId,
+  Handshake,
+  IOManager,
+  LocalAddress,
+  NodeToClientProtocols (..),
+  TraceSendRecv,
+  localSnocket,
+  localStateQueryPeerNull,
+  localTxMonitorPeerNull,
+  localTxSubmissionPeerNull,
+ )
+import qualified Cardano.Network.NodeToClient.Version as Network
 import Ouroboros.Consensus.Block.Abstract (CodecConfig)
 import Ouroboros.Consensus.Byron.Node ()
 import Ouroboros.Consensus.Cardano.Node ()
@@ -71,19 +84,6 @@ import Ouroboros.Network.Block (
 import Ouroboros.Network.Driver.Simple (runPipelinedPeer)
 import Ouroboros.Network.Mux (MiniProtocolCb (..), RunMiniProtocol (..), RunMiniProtocolWithMinimalCtx)
 import qualified Ouroboros.Network.Mux as Mux
-import Cardano.Network.NodeToClient (
-  ConnectionId,
-  Handshake,
-  IOManager,
-  LocalAddress,
-  NodeToClientProtocols (..),
-  TraceSendRecv,
-  localSnocket,
-  localStateQueryPeerNull,
-  localTxMonitorPeerNull,
-  localTxSubmissionPeerNull,
- )
-import qualified Cardano.Network.NodeToClient.Version as Network
 import Ouroboros.Network.Protocol.ChainSync.ClientPipelined (
   ChainSyncClientPipelined (..),
   ClientPipelinedStIdle (..),
diff --git a/cardano-db-tool/src/Cardano/DbTool/Validate/Ledger.hs b/cardano-db-tool/src/Cardano/DbTool/Validate/Ledger.hs
@@ -12,6 +12,7 @@ import Cardano.DbSync.Ledger.Types (CardanoLedgerState (..), LedgerStateFile (..
 import Cardano.DbSync.Tracing.ToObjectOrphans ()
 import Cardano.DbTool.Validate.Balance (ledgerAddrBalance)
 import Cardano.DbTool.Validate.Util
+import Cardano.Network.NodeToClient (withIOManager)
 import Control.Monad (when)
 import Control.Monad.Trans.Except (runExceptT)
 import Control.Tracer (nullTracer)
@@ -20,7 +21,6 @@ import qualified Data.Text as Text
 import Ouroboros.Consensus.Cardano.Node ()
 import Ouroboros.Consensus.Ledger.Extended
 import Ouroboros.Network.Block
-import Cardano.Network.NodeToClient (withIOManager)
 import Prelude
 
 data LedgerValidationParams = LedgerValidationParams
