Changeset 22989 for src/Pugs/AST

Timestamp:

11/12/08 10:00:43 (8 weeks ago)

Author:

audreyt

Message:

* GHC 6.10 support, part 2 of 3: Adjust for extensible exceptions.

Files:

• src/Pugs/AST/Eval.hs (modified) (2 diffs)

src/Pugs/AST/Eval.hs

@@ -4 +4 @@
 import Pugs.Internals
 import Pugs.Cont hiding (resetT)
-import Control.Exception (try, Exception)
+import System.IO.Error (try, IOError)
 
 import Pugs.AST.SIO
@@ -165 +165 @@
 supress the exception and return an associated value instead.
 -}
-guardIOexcept :: MonadIO m => [((Exception -> Bool), a)] -> IO a -> m a
+guardIOexcept :: MonadIO m => [((IOError -> Bool), a)] -> IO a -> m a
 guardIOexcept safetyNet x = do
     rv <- io $ try x