From bb34a679dde5aad4df40be42d9acc699abf521cd Mon Sep 17 00:00:00 2001 From: Egor Tensin Date: Sat, 8 Oct 2016 23:48:32 +0300 Subject: strip extra whitespace --- apps/Prompt.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'apps/Prompt.hs') diff --git a/apps/Prompt.hs b/apps/Prompt.hs index e8280de..d256f63 100644 --- a/apps/Prompt.hs +++ b/apps/Prompt.hs @@ -30,7 +30,7 @@ promptYesNo msg = do where yeses = ["y", "yes"] noes = ["n", "no"] - + promptToContinue :: IO Bool promptToContinue = promptYesNo "Continue? (y/n) " -- cgit v1.2.3