From 668d7e232f05e232d2d20ae4852fa287b1941e9d Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Mon, 16 Mar 2020 19:36:12 -0400
Subject: [PATCH] FIX make ctl-g exit power prompt

---
 bin/xmonad.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/xmonad.hs b/bin/xmonad.hs
index 809b654..0a4eff7 100644
--- a/bin/xmonad.hs
+++ b/bin/xmonad.hs
@@ -255,7 +255,7 @@ myPowerPrompt = mkXPrompt PowerPrompt theme comp executeAction
     comp = mkComplFunFromList []
     theme = T.promptTheme { promptKeymap = keymap }
     keymap = M.fromList
-      $ ((0, xK_g), quit) :
+      $ ((controlMask, xK_g), quit) :
       map (first $ (,) 0)
       [ (xK_p, sendAction "p")
       , (xK_s, sendAction "s")