diff options
Diffstat (limited to 'FindEmptyWorkspace.hs')
| -rw-r--r-- | FindEmptyWorkspace.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FindEmptyWorkspace.hs b/FindEmptyWorkspace.hs index 7ffe664..4eced8c 100644 --- a/FindEmptyWorkspace.hs +++ b/FindEmptyWorkspace.hs @@ -25,7 +25,7 @@ import Data.Maybe ( isNothing ) import XMonad import StackSet -import qualified Operations as O +import Operations -- $usage -- @@ -64,9 +64,9 @@ withEmptyWorkspace f = do -- | Find and view an empty workspace. Do nothing if all workspaces are -- in use. viewEmptyWorkspace :: X () -viewEmptyWorkspace = withEmptyWorkspace O.view +viewEmptyWorkspace = withEmptyWorkspace (windows . view) -- | Tag current window to an empty workspace and view it. Do nothing if -- all workspaces are in use. tagToEmptyWorkspace :: X () -tagToEmptyWorkspace = withEmptyWorkspace $ \w -> O.shift w >> O.view w +tagToEmptyWorkspace = withEmptyWorkspace $ \w -> windows $ view w . shift w |