X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FTopHandler.lhs;h=d7519efac64ea0ab9cc36f88db9b829e1dd8ce6c;hb=7de50399a42ee49b0473b7b6eea2b44a2f941a12;hp=344a856038059090f99157665ab013e2faeb3745;hpb=2a9bec92edcc9257e83b2e0f8a0ae56d5f4697bb;p=haskell-directory.git

diff --git a/GHC/TopHandler.lhs b/GHC/TopHandler.lhs
index 344a856..d7519ef 100644
--- a/GHC/TopHandler.lhs
+++ b/GHC/TopHandler.lhs
@@ -1,5 +1,5 @@
 -- -----------------------------------------------------------------------------
--- $Id: TopHandler.lhs,v 1.3 2001/08/17 12:50:34 simonmar Exp $
+-- $Id: TopHandler.lhs,v 1.4 2002/02/05 17:32:27 simonmar Exp $
 --
 -- (c) The University of Glasgow, 2001
 --
@@ -43,6 +43,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")