From 581f10d9f1a2b0375358afd5eabc20c06956e261 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 26 Aug 2020 21:35:35 +0200 Subject: Ignore empty user input --- src/Main.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src') 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 -- cgit v1.2.3