pugs-compat 0.0.6.20120203 → 0.0.6.20120229

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• pugs-compat.cabal +1/−1
• src/Pugs/Compat/Monads.hs +2/−2

@@ -1,5 +1,5 @@ Name           : pugs-compat-Version        : 0.0.6.20120203+Version        : 0.0.6.20120229 Build-type     : Simple Category       : Pugs License        : BSD3

@@ -27,7 +27,7 @@ import System.IO (hPutStrLn, stderr) import System.IO.Unsafe import Control.Exception (Exception(..))-import Control.Concurrent.STM+import Control.Concurrent.STM (STM, atomically, TVar, writeTVar, readTVar) import Control.Monad.Trans (MonadIO(..)) import qualified Control.Exception (catch, evaluate) @@ -100,7 +100,7 @@      -> m a     -- ^ Result of the actual action finallyM ma mb = do     r <- ma-    mb+    _ <- mb     return r  internalError :: String -> a