fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

switch from ncurses to brick #1

Merged
jlamothe merged 21 commits from brick into dev 2023-06-02 15:28:41 -04:00
Conversation 0 Commits 21 Files Changed 59 +2 -2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit ea9a9c6a85 - Show all commits

4
src/Mtlstats/Prompt.hs
View File

@ -57,7 +57,7 @@ import Data.Char (isAlphaNum, isDigit, toUpper)
import Graphics.Text.Width (safeWcswidth)
import Graphics.Vty.Input.Events
( Event (EvKey)
, Key (KChar, KEnter, KEsc, KFun)
, Key (KBS, KChar, KEnter, KFun)
)
import Lens.Micro ((^.), (&), (.~), (?~), (%~))
import Lens.Micro.Mtl ((.=), use)
@ -77,7 +77,7 @@ promptHandler p (VtyEvent (EvKey KEnter [])) = do
promptAction p val
promptHandler p (VtyEvent (EvKey (KChar c) [])) =
modify $ inputBuffer %~ promptProcessChar p c
promptHandler _ (VtyEvent (EvKey KEsc [])) =
promptHandler _ (VtyEvent (EvKey KBS [])) =
modify removeChar
promptHandler p (VtyEvent (EvKey k m)) =
promptSpecialKey p k m