diff options
-rw-r--r-- | CopyWindow.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/CopyWindow.hs b/CopyWindow.hs index 7e41158..285b042 100644 --- a/CopyWindow.hs +++ b/CopyWindow.hs @@ -55,8 +55,7 @@ import StackSet -- %keybindlist , (f, m) <- [(view, 0), (shift, shiftMask), (copy, shiftMask .|. controlMask)]] -- | copy. Copy a window to a new workspace. -copy :: WorkspaceId -> X () -copy n = windows copy' +copy n = copy' where copy' s = if n `tagMember` s && n /= tag (workspace (current s)) then maybe s (go s) (peek s) else s |