From fd7acddc71a87fd17f99864b376a27443927e862 Mon Sep 17 00:00:00 2001 From: Martin Bays Date: Sun, 31 Jul 2016 14:23:19 +0200 Subject: [PATCH] don't abort 'confirm' on unprintable chars --- InteractUtil.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/InteractUtil.hs b/InteractUtil.hs index 7cd907a..07926a6 100644 --- a/InteractUtil.hs +++ b/InteractUtil.hs @@ -172,6 +172,7 @@ confirm prompt = do Nothing -> waitConfirm ansOfCmd (CmdInputChar 'y') = Just True ansOfCmd (CmdInputChar 'Y') = Just True + ansOfCmd (CmdInputChar c) = if isPrint c then Just False else Nothing ansOfCmd CmdRedraw = Just False ansOfCmd CmdRefresh = Nothing ansOfCmd CmdUnselect = Nothing -- 2.11.4.GIT