diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-06-02 18:07:37 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-06-02 18:07:37 +0000 |
| commit | becf3627ca7dcdbb6112e6017e6fd733a3975e90 (patch) | |
| tree | 6991a1545328c2b9d0d0cece925bdc31aaa1b2bb /ghc | |
| parent | fc7a2876f23510ab795ab2098bbac278d29d6356 (diff) | |
| download | haskell-becf3627ca7dcdbb6112e6017e6fd733a3975e90.tar.gz | |
Re-add newlines to enable layout for multi-line input.
Patch from Adam Vogt <vogt.adam@gmail.com>
Partial fix for #3984
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index fb8bcb1837..d119aac9f2 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? |