diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2022-06-27 21:59:49 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2022-06-27 21:59:49 +0200 |
| commit | cdc4a45d21353ebf9306bd8df83ec287ace7c0e4 (patch) | |
| tree | bcaac485895442878f159a61fb6555c14f2900dd | |
| parent | c269a0b1d3fb2e277cf6afa2833cb39524c1b45d (diff) | |
Replace newlines with ; instead
Request from geekosaur, original yahb did that too
| -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 |