diff options
Diffstat (limited to 'src/Rahm/Desktop/Submap.hs')
| -rw-r--r-- | src/Rahm/Desktop/Submap.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/Rahm/Desktop/Submap.hs b/src/Rahm/Desktop/Submap.hs index f5d8f9f..d316004 100644 --- a/src/Rahm/Desktop/Submap.hs +++ b/src/Rahm/Desktop/Submap.hs @@ -39,6 +39,7 @@ import XMonad asKeyEvent, buttonPressMask, checkMaskEvent, + cleanMask, currentTime, getEvent, grabKeyboard, @@ -167,7 +168,12 @@ nextButton = do io $ ungrabPointer d currentTime - return ret + mapM + ( \(m', b) -> do + m <- fromIntegral <$> cleanMask (fromIntegral m') + return (m, b) + ) + ret {- Grabs the mouse and reports the next mouse motion. -} nextMotion :: X (Int, Int) |