@@ -304,14 +304,14 @@ pattern DontTrace <- TraceValue Nothing Nothing
304
304
DontTrace = TraceValue (Nothing :: Maybe () ) Nothing
305
305
306
306
-- | '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 .
309
309
--
310
310
class MonadInspectSTM m
311
311
=> MonadTraceSTM m where
312
312
-- | Construct a trace out of previous & new value of a 'TVar'. The callback
313
313
-- is called whenever an stm transaction which modifies the 'TVar' is
314
- -- commited .
314
+ -- committed .
315
315
--
316
316
-- This is supported by 'IOSim' and 'IOSimPOR'; 'IO' has a trivial instance.
317
317
--
@@ -321,7 +321,7 @@ class MonadInspectSTM m
321
321
-> TVar m a
322
322
-> (Maybe a -> a -> InspectMonad m TraceValue )
323
323
-- ^ 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.
325
325
-> STM m ()
326
326
327
327
@@ -791,7 +791,7 @@ throwSTM :: (MonadSTM m, MonadThrow.MonadThrow (STM m), Exception e)
791
791
throwSTM = MonadThrow. throwIO
792
792
793
793
794
- -- | 'catch' speclialized for an @stm@ monad.
794
+ -- | 'catch' specialized for an @stm@ monad.
795
795
--
796
796
catchSTM :: (MonadSTM m , MonadThrow. MonadCatch (STM m ), Exception e )
797
797
=> STM m a -> (e -> STM m a ) -> STM m a
@@ -824,8 +824,8 @@ deriving instance MonadSTM m => MonadPlus (WrappedSTM t r m)
824
824
-- extension because it violates 3rd Paterson condition, however `STM m` will
825
825
-- resolve to a concrete type of kind (Type -> Type), and thus no larger than
826
826
-- `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 .
829
829
instance ( MonadSTM m
830
830
, MonadThrow. MonadThrow (STM m )
831
831
, MonadThrow. MonadCatch (STM m )
0 commit comments