#415, switch back to join/evaluate, since lazy doesn't work (uhoh!)

ndmitchell · Feb 13, 2016 · 7f59622 · 7f59622
1 parent c03a28f
commit 7f59622
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Development/Shake/Monad.hs b/src/Development/Shake/Monad.hs
@@ -15,7 +15,6 @@ import Control.Monad.Trans.Reader
 import Data.IORef
 import Control.Applicative
 import Control.Monad
-import GHC.Exts(lazy)
 import Prelude
 
 
@@ -33,7 +32,7 @@ type Capture a = (a -> IO ()) -> IO ()
 
 -- See https://ghc.haskell.org/trac/ghc/ticket/11555
 catchSafe :: IO a -> (SomeException -> IO a) -> IO a
-catchSafe a b = lazy a `catch_` b
+catchSafe a b = join (evaluate a) `catch_` b
 
 -- | Run and then call a continuation.
 runRAW :: ro -> rw -> RAW ro rw a -> Capture (Either SomeException a)