Commit becf3627 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Re-add newlines to enable layout for multi-line input.

Patch from Adam Vogt <>
Partial fix for #3984
parent fc7a2876
......@@ -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?
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment