Commit cdb05355 authored by rrt's avatar rrt

[project @ 2001-10-18 10:27:15 by rrt]

catchAllIO -> catch
parent e8ee196b
......@@ -108,7 +108,7 @@ doRevalIO job p = do
return (Okay r)
-- if something goes wrong we return a 'Fail' result.
safeJob = Exception.catchAllIO okayJob (\e -> return (Fail e))
safeJob = Exception.catch okayJob (\e -> return (Fail e))
-- we return the result via a single variable so we can
-- use GpH's synchronisation mechanisms ie FETCHME, BQ, etc. (hackity, hack.)
......@@ -188,7 +188,7 @@ isEmptyMVar :: MVar a -> IO Bool
isEmptyMVar mv = revalIO (Concurrent.isEmptyMVar mv) mv
tryPutMVar :: MVar a -> a -> IO Bool
tryPutMVar mv r = Exception.catchAllIO (do;putMVar mv r;return True) (\e->return False)
tryPutMVar mv r = Exception.catch (do;putMVar mv r;return True) (\e->return False)
takeMaybeMVar :: MVar a -> IO (Maybe a)
takeMaybeMVar mv = revalIO (PrelConc.takeMaybeMVar mv) mv
......
......@@ -10,7 +10,7 @@ main = do
m <- newEmptyMVar
let
work p = catchAllIO (revalIO remote p) fails
work p = catch (revalIO remote p) fails
remote = do
i <- myPEId
mo <- owningPE m
......@@ -25,7 +25,7 @@ main = do
return False
rs <- mapM work pes
catchAllIO (putMVar m "Main") (\e-> return ())
catch (putMVar m "Main") (\e-> return ())
name <- takeMVar m
putStrLn ("Writer= "++name)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment