Commit de36fea0 authored by simonpj's avatar simonpj
Browse files

[project @ 2004-12-17 16:13:27 by simonpj]

Fix breakage in previous commit re signal handling
parent da1625cf
...@@ -205,8 +205,8 @@ installSignalHandlers = do ...@@ -205,8 +205,8 @@ installSignalHandlers = do
interrupt = throwTo main_thread interrupt_exn interrupt = throwTo main_thread interrupt_exn
-- --
#if !defined(mingw32_HOST_OS) #if !defined(mingw32_HOST_OS)
installHandler sigQUIT interrupt Nothing installHandler sigQUIT (Catch interrupt) Nothing
installHandler sigINT interrupt Nothing installHandler sigINT (Catch interrupt) Nothing
return () return ()
#elif __GLASGOW_HASKELL__ >= 603 #elif __GLASGOW_HASKELL__ >= 603
-- GHC 6.3+ has support for console events on Windows -- GHC 6.3+ has support for console events on Windows
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment