GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-12 06:19:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

version number, encoding

Browse Source
This commit is contained in:
aarne
2005-12-22 16:46:38 +00:00
parent 6e53876291
commit 8e2d67bfba
5 changed files with 22 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/System/NoSignal.hs
View File

@@ -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