Format with fourmolu

Author: geo2a

ouroboros-consensus-cardano/src/unstable-cardano-tools/Cardano/Tools/ImmDBServer/Diffusion.hs

@@ -5,6 +5,7 @@
 
 module Cardano.Tools.ImmDBServer.Diffusion (run) where
 
+import qualified Cardano.Network.NodeToNode as N2N
 import Cardano.Tools.ImmDBServer.MiniProtocols (immDBServer)
 import Control.ResourceRegistry
 import Control.Tracer
@@ -27,7 +28,6 @@ import Ouroboros.Consensus.Util
 import Ouroboros.Consensus.Util.IOLike
 import Ouroboros.Network.IOManager (withIOManager)
 import Ouroboros.Network.Mux
-import qualified Cardano.Network.NodeToNode as N2N
 import Ouroboros.Network.PeerSelection.PeerSharing.Codec
   ( decodeRemoteAddress
   , encodeRemoteAddress

ouroboros-consensus-cardano/src/unstable-cardano-tools/Cardano/Tools/ImmDBServer/MiniProtocols.hs

@@ -14,6 +14,11 @@
 -- | Implement ChainSync and BlockFetch servers on top of just the immutable DB.
 module Cardano.Tools.ImmDBServer.MiniProtocols (immDBServer) where
 
+import Cardano.Network.NodeToNode
+  ( NodeToNodeVersionData (..)
+  , Versions (..)
+  )
+import qualified Cardano.Network.NodeToNode as N2N
 import qualified Codec.CBOR.Decoding as CBOR
 import qualified Codec.CBOR.Encoding as CBOR
 import Control.Monad (forever)
@@ -57,11 +62,6 @@ import Ouroboros.Network.Mux
   , OuroborosApplicationWithMinimalCtx
   , RunMiniProtocol (..)
   )
-import Cardano.Network.NodeToNode
-  ( NodeToNodeVersionData (..)
-  , Versions (..)
-  )
-import qualified Cardano.Network.NodeToNode as N2N
 import Ouroboros.Network.PeerSelection.PeerSharing (PeerSharing (..))
 import Ouroboros.Network.Protocol.BlockFetch.Server
 import Ouroboros.Network.Protocol.ChainSync.Server

ouroboros-consensus-diffusion/src/unstable-diffusion-testlib/Test/ThreadNet/General.hs

@@ -136,7 +136,7 @@ instance Arbitrary TestConfig where
 
     numCoreNodes <- arbitrary
     nodeTopology <- genNodeTopology numCoreNodes
-    txLogicVersion <- elements [minBound..maxBound]
+    txLogicVersion <- elements [minBound .. maxBound]
 
     numSlots <- arbitrary
     pure

ouroboros-consensus-diffusion/src/unstable-diffusion-testlib/Test/ThreadNet/Network.hs

@@ -39,6 +39,13 @@ module Test.ThreadNet.Network
   , TestOutput (..)
   ) where
 
+import Cardano.Network.NodeToNode
+  ( ConnectionId (..)
+  , ExpandedInitiatorContext (..)
+  , IsBigLedgerPeer (..)
+  , MiniProtocolParameters (..)
+  , ResponderContext (..)
+  )
 import Cardano.Network.PeerSelection.Bootstrap
   ( UseBootstrapPeers (..)
   )
@@ -119,13 +126,6 @@ import Ouroboros.Network.BlockFetch
 import Ouroboros.Network.Channel
 import Ouroboros.Network.ControlMessage (ControlMessage (..))
 import Ouroboros.Network.Mock.Chain (Chain (Genesis))
-import Cardano.Network.NodeToNode
-  ( ConnectionId (..)
-  , ExpandedInitiatorContext (..)
-  , IsBigLedgerPeer (..)
-  , MiniProtocolParameters (..)
-  , ResponderContext (..)
-  )
 import Ouroboros.Network.PeerSelection.Governor
   ( makePublicPeerSelectionStateVar
   )

ouroboros-consensus-diffusion/test/consensus-test/Test/Consensus/PeerSimulator/BlockFetch.hs

@@ -15,6 +15,7 @@ module Test.Consensus.PeerSimulator.BlockFetch
   , startKeepAliveThread
   ) where
 
+import Cardano.Network.NodeToNode.Version (NodeToNodeVersion)
 import Control.Monad (void)
 import Control.Monad.Class.MonadTime
 import Control.Monad.Class.MonadTimer.SI (MonadTimer)
@@ -64,7 +65,6 @@ import Ouroboros.Network.Driver.Limits
   ( ProtocolLimitFailure (ExceededSizeLimit, ExceededTimeLimit)
   , runPipelinedPeerWithLimits
   )
-import Cardano.Network.NodeToNode.Version (NodeToNodeVersion)
 import Ouroboros.Network.Protocol.BlockFetch.Codec
   ( byteLimitsBlockFetch
   , codecBlockFetchId

ouroboros-consensus-diffusion/test/consensus-test/Test/Consensus/PeerSimulator/ChainSync.hs

@@ -10,6 +10,7 @@ module Test.Consensus.PeerSimulator.ChainSync
   , runChainSyncServer
   ) where
 
+import Cardano.Network.NodeToNode.Version (NodeToNodeVersion)
 import Control.Exception (SomeException)
 import Control.Monad.Class.MonadTimer.SI (MonadTimer)
 import Control.Tracer
@@ -20,7 +21,6 @@ import Control.Tracer
   )
 import Data.Proxy (Proxy (..))
 import Network.TypedProtocol.Codec (AnyMessage)
-import Cardano.Network.NodeToNode.Version (NodeToNodeVersion)
 import Ouroboros.Consensus.Block (Header, Point)
 import Ouroboros.Consensus.BlockchainTime (RelativeTime (..))
 import Ouroboros.Consensus.Config
@@ -58,7 +58,6 @@ import Ouroboros.Network.Driver.Limits
   ( ProtocolLimitFailure (ExceededSizeLimit, ExceededTimeLimit)
   , runPipelinedPeerWithLimits
   )
-import Cardano.Network.NodeToNode.Version (NodeToNodeVersion)
 import Ouroboros.Network.Protocol.ChainSync.ClientPipelined
   ( ChainSyncClientPipelined
   , chainSyncClientPeerPipelined