GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 00:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Block SIGINT while running gfInteract, as suggested by Peter.

Browse Source
This commit is contained in:
bringert
2006-06-15 01:41:18 +00:00
parent 17f5fad35d
commit 6bd400091c
4 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -24,3 +24,6 @@ runInterruptibly a =
p `catch` h
where p = a >>= \x -> return $! Right $! x
h e = return $ Left e
blockInterrupt :: IO a -> IO a
blockInterrupt = id