producer-state: code style

IntersectMBO · Oct 27, 2021 · 6735f5c · 6735f5c
1 parent 571be60
commit 6735f5c
Showing 1 changed file with 3 additions and 3 deletions.
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