From: simonmar <unknown>
Date: Tue, 22 Jan 2002 16:50:29 +0000 (+0000)
Subject: [project @ 2002-01-22 16:50:29 by simonmar]
X-Git-Tag: Approximately_9120_patches~273
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=37f0db38cf773d521424bf46d3c93f3b747e4406;p=ghc-hetmet.git

[project @ 2002-01-22 16:50:29 by simonmar]
CmRunDeadlocked no longer exists
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index c1c16db..fb0732b 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -#include "Linker.h" -#include "SchedAPI.h" #-}
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.107 2002/01/22 13:04:13 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.108 2002/01/22 16:50:29 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -359,7 +359,6 @@ runStmt stmt
       case result of
 	CmRunFailed      -> return []
 	CmRunException e -> showException e >> return []
-	CmRunDeadlocked  -> io (putStrLn "Deadlocked.") >> return []
 	CmRunOk names    -> return names
 
 -- possibly print the type and revert CAFs after evaluating an expression