TOSQUASH typos

Author: nfrisby

ouroboros-consensus/src/unstable-consensus-testlib/Test/CsjModel.hs

@@ -94,7 +94,7 @@ data CsjClientState p = CsjClientState {
     -- | the greatest point the peer has accepted as part of a jump
     --
     -- If 'latestJump' is 'Origin', then this is the immutable tip as of when
-    -- the peer connected (and so is the Dynamo's, which means the Dynamo'S
+    -- the peer connected (and so is the Dynamo's, which means the Dynamo's
     -- 'comm' cannot be any younger than this peer's 'comm').
     comm      :: !(WithOrigin p)
   }
@@ -183,8 +183,8 @@ trimCandidate y =
 
 -- | A 'MsgFindIntersect' for 'comm'
 --
--- minor optimization opportunity: if the Jumpers latest response was
--- @MsgIntersectionFound@ then this could be 'NoReset'.
+-- Minor optimization opportunity: if the Jumper's latest response was
+-- @MsgIntersectionFound@ then this could be skipped.
 promotionMessage :: CsjClientState p -> CsjReaction p
 promotionMessage = MsgFindIntersect . comm
 
@@ -269,12 +269,12 @@ nextMsgFindIntersect2 bi =
             -- Dynamo, and so by offering the whole jump in the first message,
             -- load on honest Jumpers is minimized: one message per jump.
         Just{}  -> neMid  nyd
-            -- TODO At least for the reference Haskell Cardano node, each
-            -- additional point in the 'MsgFindIntersect' message is most
-            -- negligible unless they're in different ImmDB chunk files. So
-            -- this logic here could include more points (perhaps once all of
-            -- @nyd@ is in the same chunk file) in order to ensure the
-            -- bisection requires fewer round trips while only increasing the
+            -- TODO At least for the reference Haskell Cardano node, the cost
+            -- of each additional point in the 'MsgFindIntersect' message is
+            -- mostly negligible unless they're in different ImmDB chunk files.
+            -- So this logic here could include more points (perhaps once all
+            -- of @nyd@ is in the same chunk file) in order to ensure the
+            -- bisection requires fewer round trips while increasing the
             -- upstream per-message cost only negligibly.
   where
     nyd = notYetDetermined bi

ouroboros-consensus/src/unstable-consensus-testlib/Test/CsjModel/NonEmptySeq.hs

@@ -62,7 +62,7 @@ data BinarySearchResult =
 
 neBinarySearch :: (a -> Bool) -> NonEmptySeq a -> BinarySearchResult
 neBinarySearch predicate (UnsafeNonEmptySeq xs) =
-      finish $ go l0 r0
+    finish $ go l0 r0
   where
     l0 = negate 1
     r0 = length xs