[project @ 2002-01-22 13:54:22 by simonmar]

[ghc-hetmet.git] / ghc / lib / std / PrelTopHandler.hs

diff --git a/ghc/lib/std/PrelTopHandler.hs b/ghc/lib/std/PrelTopHandler.hs
index 54da967..1159631 100644 (file)
--- a/ghc/lib/std/PrelTopHandler.hs
+++ b/ghc/lib/std/PrelTopHandler.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -#include "PrelIOUtils.h" #-}
 -- -----------------------------------------------------------------------------
 --
--- (c) The University of Glasgow, 1994-
+-- (c) The University of Glasgow, 1994-2002
 --
 -- PrelTopHandler
 --
@@ -42,6 +42,9 @@ real_handler ex =
        ExitException ExitSuccess     -> shutdownHaskellAndExit 0
        ExitException (ExitFailure n) -> shutdownHaskellAndExit n
 
+       Deadlock    -> reportError True 
+                         "no threads to run:  infinite loop or deadlock?"
+
        ErrorCall s -> reportError True s
        other       -> reportError True (showsPrec 0 other "\n")