From: qrczak <unknown>
Date: Thu, 1 Mar 2001 21:39:36 +0000 (+0000)
Subject: [project @ 2001-03-01 21:39:36 by qrczak]
X-Git-Tag: Approximately_9120_patches~2487
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0c5e53f00a075f18f0f8a491c979e13c48a7d95c;p=ghc-hetmet.git

[project @ 2001-03-01 21:39:36 by qrczak]
Let ':t \x->x' work by putting a space before the expression.
---

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 4b41fe5..0e10626 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -228,7 +228,7 @@ cmRunStmt cmstate dflags expr
 cmTypeOfExpr :: CmState -> DynFlags -> String -> IO (CmState, Maybe String)
 cmTypeOfExpr cmstate dflags expr
   = do (new_cmstate, names)
-	   <- cmRunStmt cmstate dflags ("let __cmTypeOfExpr=" ++ expr)
+	   <- cmRunStmt cmstate dflags ("let __cmTypeOfExpr = " ++ expr)
        case names of
 	 [name] -> do maybe_tystr <- cmTypeOfName new_cmstate name
 		      return (new_cmstate, maybe_tystr)
@@ -270,7 +270,7 @@ cmCompileExpr cmstate dflags expr
 
         (new_pcs, maybe_stuff) 
 	    <- hscStmt dflags hst hit pcs icontext 
-		  ("let __cmCompileExpr="++expr)
+		  ("let __cmCompileExpr = "++expr)
 
         case maybe_stuff of
 	   Nothing -> return (cmstate{ pcs=new_pcs }, Nothing)