aboutsummaryrefslogtreecommitdiff
path: root/src/Internal/Keys.hs
diff options
context:
space:
mode:
authorJosh Rahm <rahm@google.com>2021-11-22 12:22:54 -0700
committerJosh Rahm <joshuarahm@gmail.com>2022-10-09 12:19:45 -0600
commit736f5b2cba1a7541e6d9173bf0fdbd28eced013d (patch)
treee808a20c9bc220d7fd8b23692d43638f8936d12f /src/Internal/Keys.hs
parent9738c120f76025f3861d19dc39aff88f9e438c27 (diff)
downloadrde-736f5b2cba1a7541e6d9173bf0fdbd28eced013d.tar.gz
rde-736f5b2cba1a7541e6d9173bf0fdbd28eced013d.tar.bz2
rde-736f5b2cba1a7541e6d9173bf0fdbd28eced013d.zip
Fix bug where moving window to workspace stopped working.
Diffstat (limited to 'src/Internal/Keys.hs')
-rw-r--r--src/Internal/Keys.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index c3c8db5..d50b371 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -126,9 +126,7 @@ newKeys =
mapNumbersAndAlpha 0 gotoWorkspace))
, ((modm .|. shiftMask, xK_g), (submap $
- mapNumbersAndAlpha 0 shiftToWorkspace))
-
- , ((modm .|. shiftMask, xK_g), (submap $
+ mapNumbersAndAlpha 0 shiftToWorkspace <>
mapNumbersAndAlpha shiftMask (\i -> windows $ CopyWindow.copy [i])))
, ((modm .|. shiftMask .|. mod1Mask, xK_g), (submap $