diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-29 12:38:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-29 12:38:41 -0400 |
| commit | fde01e52f382d7903749609301f99d78791c2f2c (patch) | |
| tree | 223113c170be92aaaa8e0330f50c933297fbbb2c /Utility.hs | |
| parent | 694a33e91b290373649594688ad880203d140dcb (diff) | |
Fix SIGINT handling.
Diffstat (limited to 'Utility.hs')
| -rw-r--r-- | Utility.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Utility.hs b/Utility.hs index ab90c5160..338aca7a3 100644 --- a/Utility.hs +++ b/Utility.hs @@ -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 |