Update io-sim/src/Control/Monad/IOSim/Types.hs

Co-authored-by: Marcin Szamotulski <[email protected]>

Author: yogeshsajanikar

io-sim/src/Control/Monad/IOSim/Types.hs

@@ -336,8 +336,8 @@ instance MonadCatch (STM s) where
 
   -- STM actions are always run inside `execAtomically` and behave as if masked
   -- Another point to note that the default implementation of `generalBracket` needs
-  -- mask, and is part of `MonadThrow`. For STM, it probably does not make sense to have
-  -- masking.
+  -- mask, and is part of `MonadThrow`. For STM, we don't need masking because
+  -- async exceptions are handled outside of `execAtomically`.
   generalBracket acquire release use = do
     resource <- acquire
     b <- use resource `catch` \e -> do