TOSQUASH re-consistent-ify ChainSync/Client.hs style

ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/MiniProtocol/ChainSync/Client.hs

@@ -288,8 +288,8 @@ bracketChainSyncClient tracer ChainDbView { getIsInvalidBlock }
 
 -- | State used when the intersection between the candidate and the current
 -- chain is unknown.
-data UnknownIntersectionState blk = UnknownIntersectionState
-  { ourFrag               :: !(AnchoredFragment (Header blk))
+data UnknownIntersectionState blk = UnknownIntersectionState {
+    ourFrag               :: !(AnchoredFragment (Header blk))
     -- ^ A view of the current chain fragment. Note that this might be
     -- temporarily out of date w.r.t. the actual current chain until we update
     -- it again.
@@ -310,8 +310,8 @@ instance ( LedgerSupportsProtocol blk
 
 -- | State used when the intersection between the candidate and the current
 -- chain is known.
-data KnownIntersectionState blk = KnownIntersectionState
-  { theirFrag               :: !(AnchoredFragment (Header blk))
+data KnownIntersectionState blk = KnownIntersectionState {
+    theirFrag               :: !(AnchoredFragment (Header blk))
     -- ^ The candidate, the synched fragment of their chain.
     --
     -- See the \"Candidate fragment size\" note above.
@@ -452,8 +452,8 @@ assertKnownIntersectionInvariants cfg kis =
 --
 -- These are available before the diffusion layer is online.
 data ConfigEnv m blk = ConfigEnv {
-      -- | The pipelining decider to use after 'MsgFoundIntersect' arrives
       mkPipelineDecision0     :: MkPipelineDecision
+      -- ^ The pipelining decider to use after 'MsgFoundIntersect' arrives
     , tracer                  :: Tracer m (TraceChainSyncClientEvent blk)
     , cfg                     :: TopLevelConfig blk
     , someHeaderInFutureCheck :: InFutureCheck.SomeHeaderInFutureCheck m blk
@@ -1328,8 +1328,7 @@ data UpdatedIntersectionState blk a =
     -- (The intersection could also be lost because of messages they sent, but
     -- that's handled elsewhere, not involving this data type.)
     NoLongerIntersects
-  |
-    StillIntersects a !(KnownIntersectionState blk)
+  | StillIntersects a !(KnownIntersectionState blk)
 
 data Intersects blk a =
     Intersects