ynHandler should ignore keypresses with modifier keys

2023-06-02 15:26:22 -04:00 · 2023-06-02 15:26:22 -04:00 · e0efe2657f
parent 886cf0b243
commit e0efe2657f
1 changed files with 1 additions and 1 deletions
--- 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