From: qrczak <unknown>
Date: Tue, 13 Feb 2001 18:37:53 +0000 (+0000)
Subject: [project @ 2001-02-13 18:37:53 by qrczak]
X-Git-Tag: Approximately_9120_patches~2637
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bd915098b155d5797ab768f9880b4051626cb038;p=ghc-hetmet.git

[project @ 2001-02-13 18:37:53 by qrczak]
Fix evalExpr's comment: it's Bool again, not Maybe.
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index be8e67b..3f4ec2a 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.48 2001/02/13 18:01:23 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.49 2001/02/13 18:37:53 qrczak Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -258,8 +258,8 @@ doCommand expr
         when expr_ok (rememberExpr expr_expanded)
         return False
 
--- Returned Maybe indicates whether or not the expr was successfully
--- parsed, renamed and typechecked.
+-- Returns True if the expr was successfully parsed, renamed and
+-- typechecked.
 evalExpr :: String -> GHCi Bool
 evalExpr expr
  | null (filter (not.isSpace) expr)