diff options
| -rw-r--r-- | src/Main.hs | 1 |
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 |