diff options
Diffstat (limited to 'src/Rahm/Desktop/Keys.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs index 556b318..b875b9d 100644 --- a/src/Rahm/Desktop/Keys.hs +++ b/src/Rahm/Desktop/Keys.hs @@ -283,7 +283,7 @@ keymap = runKeys $ do \F1: display this help.\n\n\t" $ runMaybeT_ $ (lift . gotoWorkspaceFn) =<< readNextWorkspace - shiftMod $ + controlMod $ doc "Restore the desktop marked with the next typed character." $ runMaybeT_ $ do mapNextString $ \_ str -> lift $ @@ -297,7 +297,7 @@ keymap = runKeys $ do -- lift . windows . uncurry W.swapWorkspaces =<< -- (,) <$> readNextWorkspaceName <*> readNextWorkspaceName - controlMod $ + shiftMod $ doc "Restore a theater state" $ runMaybeT_ $ do mapNextString $ \_ str -> lift $ |