From e0efe2657f2ce9d9c01d7e9e2589a7d846474251 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Fri, 2 Jun 2023 15:26:22 -0400 Subject: [PATCH] ynHandler should ignore keypresses with modifier keys --- src/Mtlstats/Handlers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Mtlstats/Handlers.hs b/src/Mtlstats/Handlers.hs index 59177c9..846b90a 100644 --- a/src/Mtlstats/Handlers.hs +++ b/src/Mtlstats/Handlers.hs @@ -27,7 +27,7 @@ import Graphics.Vty.Input.Events (Event (EvKey), Key (KChar)) -- | Handler for a yes/no prompt ynHandler :: BrickEvent () () -> Maybe Bool -ynHandler (VtyEvent (EvKey (KChar c) _)) = case toUpper c of +ynHandler (VtyEvent (EvKey (KChar c) [])) = case toUpper c of 'Y' -> Just True 'N' -> Just False _ -> Nothing