From b389418fb85948477447db07aee13517dc9148c8 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Fri, 8 Dec 2023 16:24:06 -0700
Subject: Fix issue where submapping keys does not work with numlock on

---
 src/Rahm/Desktop/Submap.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Rahm/Desktop')

diff --git a/src/Rahm/Desktop/Submap.hs b/src/Rahm/Desktop/Submap.hs
index d316004..b705a24 100644
--- a/src/Rahm/Desktop/Submap.hs
+++ b/src/Rahm/Desktop/Submap.hs
@@ -130,7 +130,8 @@ mapNextStringWithKeysym fn = do
 
   io $ ungrabKeyboard d currentTime
 
-  (m, str, keysym) <- MaybeT $ return ret
+  (m', str, keysym) <- MaybeT $ return ret
+  m <- lift $ cleanMask m'
   fn m keysym str
 
 {- Like submap, but on the character typed rather than the kysym. -}
-- 
cgit