[project @ 2005-01-21 16:02:47 by simonmar]
[packages/old-time.git] / Control / Concurrent.hs
index 3b7f784..8df665e 100644 (file)
@@ -230,8 +230,8 @@ real_handler ex =
        AsyncException ThreadKilled  -> return ()
 
        -- report all others:
-       AsyncException StackOverflow -> reportStackOverflow False
-       other       -> reportError False other
+       AsyncException StackOverflow -> reportStackOverflow
+       other       -> reportError other
 
 #endif /* __GLASGOW_HASKELL__ */