ouroboros-network: code style

IntersectMBO · Oct 14, 2021 · e17358b · e17358b
1 parent 8c059ec
commit e17358b
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 13 deletions.
diff --git a/ouroboros-network/src/Ouroboros/Network/Diffusion/Common.hs b/ouroboros-network/src/Ouroboros/Network/Diffusion/Common.hs
@@ -112,7 +112,7 @@ data Tracers ntnAddr ntnVersion ntcAddr ntcVersion m = Tracers {
 nullTracers :: Applicative m => Tracers ntnAddr ntnVersion
                                         ntcAddr ntcVersion m
 nullTracers = Tracers {
-  dtMuxTracer                       = nullTracer
+    dtMuxTracer                     = nullTracer
   , dtHandshakeTracer               = nullTracer
   , dtLocalMuxTracer                = nullTracer
   , dtLocalHandshakeTracer          = nullTracer
@@ -184,5 +184,7 @@ data Applications ntnAddr ntnVersion ntnVersionData
                       ByteString m Void ())
 
       -- | Interface used to get peers from the current ledger.
+      --
+      -- TODO: it should be in 'InterfaceExtra'
     , daLedgerPeersCtx :: LedgerPeersConsensusInterface m
   }
diff --git a/ouroboros-network/src/Ouroboros/Network/Diffusion/P2P.hs b/ouroboros-network/src/Ouroboros/Network/Diffusion/P2P.hs
@@ -604,23 +604,22 @@ runM
                   m
     -> -- | tracers
        Tracers ntnAddr ntnVersion
-                        ntcAddr ntcVersion
-                        m
+               ntcAddr ntcVersion
+               m
     -> -- | p2p tracers
        TracersExtra ntnAddr ntnVersion ntnVersionData
-                             ntcAddr ntcVersion ntcVersionData
-                             resolverError m
+                    ntcAddr ntcVersion ntcVersionData
+                    resolverError m
     -> -- | configuration
        Arguments ntnFd ntnAddr
-                          ntcFd ntcAddr
+                 ntcFd ntcAddr
     -> -- | p2p configuration
        ArgumentsExtra m
 
     -> -- | protocol handlers
-       Applications
-         ntnAddr ntnVersion ntnVersionData
-         ntcAddr ntcVersion ntcVersionData
-         m
+       Applications ntnAddr ntnVersion ntnVersionData
+                    ntcAddr ntcVersion ntcVersionData
+                    m
     -> -- | p2p protocol handlers
        ApplicationsExtra ntnAddr m
     -> m Void

diff --git a/ouroboros-network/src/Ouroboros/Network/MockChain/ProducerState.hs b/ouroboros-network/src/Ouroboros/Network/MockChain/ProducerState.hs
@@ -192,9 +192,9 @@ switchFork c (ChainProducerState c' cflrst cfid) =
 -- the producer's state assuming that the follower follows its instruction.
 --
 followerInstruction :: HasHeader block
-                  => FollowerId
-                  -> ChainProducerState block
-                  -> Maybe (ChainUpdate block block, ChainProducerState block)
+                    => FollowerId
+                    -> ChainProducerState block
+                    -> Maybe (ChainUpdate block block, ChainProducerState block)
 followerInstruction fid cps@(ChainProducerState c cflrst cfid) =
     let FollowerState {followerPoint, followerNext} = lookupFollower cps fid in
     case followerNext of