mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions 1

Fix SIGINT handling.

Browse source
This commit is contained in:
Joey Hess 2010-10-29 12:38:41 -04:00
commit fde01e52f3
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Utility.hs
View file

@ -19,7 +19,6 @@ import System.IO
import System.Cmd
import System.Exit
import System.Posix.Signals
import Data.Typeable
import System.Posix.IO
import Data.String.Utils
import System.Path
@ -110,7 +109,7 @@ boolSystem command params = do
r <- rawSystem command params
case r of
ExitSuccess -> return True
ExitFailure e -> if Just e == cast sigINT
ExitFailure e -> if toInteger e == toInteger sigINT
then error $ command ++ "interrupted"
else return False