aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorTom Smeding <tom@tomsmeding.com>2022-06-27 21:59:49 +0200
committerTom Smeding <tom@tomsmeding.com>2022-06-27 21:59:49 +0200
commitcdc4a45d21353ebf9306bd8df83ec287ace7c0e4 (patch)
treebcaac485895442878f159a61fb6555c14f2900dd /src
parentc269a0b1d3fb2e277cf6afa2833cb39524c1b45d (diff)
Replace newlines with ; instead
Request from geekosaur, original yahb did that too
Diffstat (limited to 'src')
-rw-r--r--src/Ghci.hs2
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