Block SIGINT while running gfInteract, as suggested by Peter.

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

View File

@@ -14,14 +14,14 @@
-- Import the right singal handling module.
-----------------------------------------------------------------------------
module GF.System.Signal (runInterruptibly) where
module GF.System.Signal (runInterruptibly,blockInterrupt) where
#ifdef USE_INTERRUPT
import GF.System.UseSignal (runInterruptibly)
import GF.System.UseSignal (runInterruptibly,blockInterrupt)
#else
import GF.System.NoSignal (runInterruptibly)
import GF.System.NoSignal (runInterruptibly,blockInterrupt)
#endif