From becf3627ca7dcdbb6112e6017e6fd733a3975e90 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 2 Jun 2010 18:07:37 +0000 Subject: [PATCH] Re-add newlines to enable layout for multi-line input. Patch from Adam Vogt Partial fix for #3984 --- ghc/InteractiveUI.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index fb8bcb1..d119aac 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -622,7 +622,7 @@ runOneCommand eh getCmd = do maybe (liftIO (ioError collectError)) (\l->if removeSpaces l == ":}" then return (Just $ removeSpaces c) - else collectCommand q (c++map normSpace l)) + else collectCommand q (c ++ "\n" ++ map normSpace l)) where normSpace '\r' = ' ' normSpace c = c -- QUESTION: is userError the one to use here? -- 1.7.10.4