Permalink
Browse files

* Compatibility with modern versions of stm package; lumi++

  • Loading branch information...
audreyt committed Feb 29, 2012
1 parent 7fb69dc commit 6f0ee571fd8a5a519509273cb8b0f35349e66d5a
Showing with 3 additions and 3 deletions.
  1. +1 −1 pugs-compat/pugs-compat.cabal
  2. +2 −2 pugs-compat/src/Pugs/Compat/Monads.hs
@@ -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.Exit
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 @@ finallyM :: (Monad m)
-> m a -- ^ Result of the actual action
finallyM ma mb = do
r <- ma
- mb
+ _ <- mb
return r
internalError :: String -> a

0 comments on commit 6f0ee57

Please sign in to comment.