From 8cd7a3db4238759eb31fb9d6a4c65411add6c53b Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 2 Jun 2010 08:27:30 +0000
Subject: Interrupted disappeared in GHC 6.13 (GHC ticket #4100)

---
 src/Main.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 91b5e56e..73ddb1d9 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -101,7 +101,9 @@ handleGhcExceptions =
     hFlush stdout
     case e of
       PhaseFailed _ code -> exitWith code
+#if ! MIN_VERSION_ghc(6,13,0)
       Interrupted -> exitFailure
+#endif
       _ -> do
         print (e :: GhcException)
         exitFailure
-- 
cgit v1.2.3