From 0c5e53f00a075f18f0f8a491c979e13c48a7d95c Mon Sep 17 00:00:00 2001 From: qrczak Date: Thu, 1 Mar 2001 21:39:36 +0000 Subject: [PATCH] [project @ 2001-03-01 21:39:36 by qrczak] Let ':t \x->x' work by putting a space before the expression. --- ghc/compiler/compMan/CompManager.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 1.7.10.4