connection-manager: fixed typos

IntersectMBO · Jun 2, 2023 · 43ef945 · 43ef945
1 parent 6b1e97d
commit 43ef945
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/ouroboros-network-framework/src/Ouroboros/Network/ConnectionManager/Core.hs b/ouroboros-network-framework/src/Ouroboros/Network/ConnectionManager/Core.hs
@@ -924,7 +924,7 @@ withConnectionManager ConnectionManagerArguments {
                       --
                       -- Key was overwritten in the dictionary (stateVar),
                       -- so we do not trace anything as it was already traced upon
-                      -- overwritting.
+                      -- overwriting.
                        else return [ ]
 
                   traverse_ (traceWith trTracer . TransitionTrace peerAddr) trs
@@ -933,7 +933,7 @@ withConnectionManager ConnectionManagerArguments {
     -- Pruning is done in two stages:
     -- * an STM transaction which selects which connections to prune, and sets
     --   their state to 'TerminatedState';
-    -- * an io action which logs and cancells all the connection handler
+    -- * an io action which logs and cancels all the connection handler
     --   threads.
     mkPruneAction :: peerAddr
                   -> Int
@@ -944,7 +944,7 @@ withConnectionManager ConnectionManagerArguments {
                   -> StrictTVar m (ConnectionState peerAddr handle handleError version m)
                   -> Async m ()
                   -> STM m (Bool, PruneAction m)
-                  -- ^ return if the connection was choose to be prunned and the
+                  -- ^ return if the connection was choose to be pruned and the
                   -- 'PruneAction'
     mkPruneAction peerAddr numberToPrune state connState' connVar connThread = do
       (choiceMap' :: Map peerAddr ( ConnectionType
@@ -1750,7 +1750,7 @@ withConnectionManager ConnectionManagerArguments {
                           -- @
                           --  Negotiated^{Duplex}_{Outbound}
                           --    : UnnegotiatedState Outbound
-                          --    → OutboundDupState^\tau  Outbound
+                          --    → OutboundDupState^\tau Outbound
                           -- @
                           let connState' = OutboundDupState connId connThread handle Ticking
                           writeTVar connVar connState'
@@ -1807,7 +1807,7 @@ withConnectionManager ConnectionManagerArguments {
                   --                          → OutboundState^\tau Duplex
                   -- @
                   -- This transition can happen if there are concurrent
-                  -- `includeInboudConnection` and `requestOutboundConnection`
+                  -- `includeInboundConnection` and `requestOutboundConnection`
                   -- calls.
                   let connState' = OutboundDupState connId connThread handle Ticking
                   writeTVar connVar connState'

diff --git a/ouroboros-network-framework/testlib/TestLib/ConnectionManager.hs b/ouroboros-network-framework/testlib/TestLib/ConnectionManager.hs
@@ -74,7 +74,7 @@ verifyAbstractTransition Transition { fromState, toState } =
       -- @Negotiated^{Unidirectional}_{Inbound}
       (UnnegotiatedSt Inbound, InboundIdleSt Unidirectional) -> True
 
-      -- 'unregisterOutboundConnection' and 'demotedToColdRemote' might perfrom
+      -- 'unregisterOutboundConnection' and 'demotedToColdRemote' might perform
       (InboundIdleSt Duplex, InboundIdleSt Duplex) -> True
       -- @Awake^{Duplex}_{Remote}
       (InboundIdleSt Duplex, InboundSt Duplex) -> True