switch from ncurses to brick #1
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user