version number, encoding

2005-12-22 16:46:38 +00:00
parent 6e53876291
commit 8e2d67bfba
5 changed files with 22 additions and 6 deletions
--- a/src/GF/System/NoSignal.hs
+++ b/src/GF/System/NoSignal.hs
@@ -18,4 +18,8 @@ import Control.Exception (Exception)

 {-# NOINLINE runInterruptibly #-}
 runInterruptibly :: IO a -> IO (Either Exception a)
-runInterruptibly = fmap Right
+--runInterruptibly = fmap Right
+runInterruptibly a = 
+    p `catch` h
+  where p = a >>= \x -> return $! Right $! x
+        h e = return $ Left e