Ticket #4343: add_throwSTM.dpatch

1 patch for repository http://darcs.haskell.org/packages/stm:

Sun Sep 26 20:18:24 CEST 2010  Bas van Dijk <v.dijk.bas@gmail.com>
  * Add throwSTM :: Exception e => e -> STM a

New patches:

[Add throwSTM :: Exception e => e -> STM a
Bas van Dijk <v.dijk.bas@gmail.com>**20100926181824
 Ignore-this: fba233747030912f882ef02b984f6b6a
] {
hunk ./Control/Monad/STM.hs 34
        orElse,
        check,
 #endif
+        throwSTM,
         catchSTM
   ) where
 
hunk ./Control/Sequential/STM.hs 7
 
 -- #hide
 module Control.Sequential.STM (
-       STM, atomically, catchSTM,
+       STM, atomically, throwSTM, catchSTM,
        TVar, newTVar, newTVarIO, readTVar, readTVarIO, writeTVar
     ) where
 
hunk ./Control/Sequential/STM.hs 52
        throw ex
 #endif
 
+#ifdef BASE4
+throwSTM :: Exception e => e -> STM a
+#else
+throwSTM :: Exception -> STM a
+#endif
+throwSTM = STM . const . throwIO
+
 #ifdef BASE4
 catchSTM :: Exception e => STM a -> (e -> STM a) -> STM a
 #else
}

Context:

[TAG 2.1.2.2
Simon Marlow <marlowsd@gmail.com>**20100715153144
 Ignore-this: dd4843fc8b82f206ff61ae95968cddd6
] 
Patch bundle hash:
4556cb3f77a8bb39c1db823f2de33752985a8521