From: Ian Lynagh <igloo@earth.li>
Date: Wed, 2 Jun 2010 18:07:37 +0000 (+0000)
Subject: Re-add newlines to enable layout for multi-line input.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=becf3627ca7dcdbb6112e6017e6fd733a3975e90

Re-add newlines to enable layout for multi-line input.
Patch from Adam Vogt <vogt.adam@gmail.com>
Partial fix for #3984
---

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?