summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 96186a8..044c6ad 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -122,6 +122,7 @@ interactiveLoop st bhost = runInputT defaultSettings $ do
let getInputLines prompt = do
Just input <- lift $ getInputLine prompt
case reverse input of
+ _ | all isSpace input -> getInputLines prompt
'\\':rest -> (reverse ('\n':rest) ++) <$> getInputLines ">> "
_ -> return input