Skip to content

Commit 9778b24

Browse files
committed
io-classes: fix some typos
1 parent 22cf8ea commit 9778b24

File tree

1 file changed

+7
-7
lines changed

1 file changed

+7
-7
lines changed

io-classes/src/Control/Monad/Class/MonadSTM.hs

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -304,14 +304,14 @@ pattern DontTrace <- TraceValue Nothing Nothing
304304
DontTrace = TraceValue (Nothing :: Maybe ()) Nothing
305305

306306
-- | 'MonadTraceSTM' allows to trace values of stm variables when stm
307-
-- transaction is commited. This allows to verify invariants when a variable
308-
-- is commited.
307+
-- transaction is committed. This allows to verify invariants when a variable
308+
-- is committed.
309309
--
310310
class MonadInspectSTM m
311311
=> MonadTraceSTM m where
312312
-- | Construct a trace out of previous & new value of a 'TVar'. The callback
313313
-- is called whenever an stm transaction which modifies the 'TVar' is
314-
-- commited.
314+
-- committed.
315315
--
316316
-- This is supported by 'IOSim' and 'IOSimPOR'; 'IO' has a trivial instance.
317317
--
@@ -321,7 +321,7 @@ class MonadInspectSTM m
321321
-> TVar m a
322322
-> (Maybe a -> a -> InspectMonad m TraceValue)
323323
-- ^ callback which receives initial value or 'Nothing' (if it
324-
-- is a newly created 'TVar'), and the commited value.
324+
-- is a newly created 'TVar'), and the committed value.
325325
-> STM m ()
326326

327327

@@ -791,7 +791,7 @@ throwSTM :: (MonadSTM m, MonadThrow.MonadThrow (STM m), Exception e)
791791
throwSTM = MonadThrow.throwIO
792792

793793

794-
-- | 'catch' speclialized for an @stm@ monad.
794+
-- | 'catch' specialized for an @stm@ monad.
795795
--
796796
catchSTM :: (MonadSTM m, MonadThrow.MonadCatch (STM m), Exception e)
797797
=> STM m a -> (e -> STM m a) -> STM m a
@@ -824,8 +824,8 @@ deriving instance MonadSTM m => MonadPlus (WrappedSTM t r m)
824824
-- extension because it violates 3rd Paterson condition, however `STM m` will
825825
-- resolve to a concrete type of kind (Type -> Type), and thus no larger than
826826
-- `m` itself, e.g. for `m ~ ReaderT r f`, `STM m ~ WrappedSTM Reader r f`.
827-
-- Instance resolution will termniate as soon as the monad transformer stack
828-
-- depth is exhousted.
827+
-- Instance resolution will terminate as soon as the monad transformer stack
828+
-- depth is exhausted.
829829
instance ( MonadSTM m
830830
, MonadThrow.MonadThrow (STM m)
831831
, MonadThrow.MonadCatch (STM m)

0 commit comments

Comments
 (0)