diff options
| -rw-r--r-- | src/Ghci.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Ghci.hs b/src/Ghci.hs index d8410b7..f931a7b 100644 --- a/src/Ghci.hs +++ b/src/Ghci.hs @@ -140,7 +140,7 @@ runStmt' ghci stmt = do | length output > 200 = take 197 output ++ "..." | otherwise = output dropBothSlow f = reverse . dropWhile f . reverse . dropWhile f - replaceNewlines = map (\case '\n' -> ' ' ; c -> c) + replaceNewlines = concatMap (\case '\n' -> " ; " ; c -> [c]) -- | Returns new prompt tag updatePrompt :: Ghci -> IO String |