FIX make ctl-g exit power prompt

This commit is contained in:
Nathan Dwarshuis 2020-03-16 19:36:12 -04:00
parent c7d7a12ca1
commit 668d7e232f
1 changed files with 1 additions and 1 deletions

View File

@ -255,7 +255,7 @@ myPowerPrompt = mkXPrompt PowerPrompt theme comp executeAction
comp = mkComplFunFromList [] comp = mkComplFunFromList []
theme = T.promptTheme { promptKeymap = keymap } theme = T.promptTheme { promptKeymap = keymap }
keymap = M.fromList keymap = M.fromList
$ ((0, xK_g), quit) : $ ((controlMask, xK_g), quit) :
map (first $ (,) 0) map (first $ (,) 0)
[ (xK_p, sendAction "p") [ (xK_p, sendAction "p")
, (xK_s, sendAction "s") , (xK_s, sendAction "s")