diff options
author | David Roundy <droundy@darcs.net> | 2007-10-05 16:37:46 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-10-05 16:37:46 +0200 |
commit | 6ee3d30ce497d673bdc25592b846c14b4b660a17 (patch) | |
tree | 5d2ea096992573955e422cca70be1dc23818c807 /CopyWindow.hs | |
parent | 1c54d11f556ef4850165832072ccbed55e417f4e (diff) | |
download | XMonadContrib-6ee3d30ce497d673bdc25592b846c14b4b660a17.tar.gz XMonadContrib-6ee3d30ce497d673bdc25592b846c14b4b660a17.tar.xz XMonadContrib-6ee3d30ce497d673bdc25592b846c14b4b660a17.zip |
fix problem found by Heffalump in CopyWindow.
darcs-hash:20071005143746-72aca-4223b90af116585d160e0245eafbdf6683f99d6a.gz
Diffstat (limited to '')
-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 |