diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-10-13 11:01:22 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-10-13 11:01:22 +0200 |
| commit | 93dc8502e479479c31c6bbfc031dae15c3e8b310 (patch) | |
| tree | d09c3cf30ab6d28e292a15cb1058793357116c87 | |
| parent | be6a34d164dd7cf51d29e4f2fcf214a78c857fc1 (diff) | |
| download | XMonadContrib-93dc8502e479479c31c6bbfc031dae15c3e8b310.tar.gz XMonadContrib-93dc8502e479479c31c6bbfc031dae15c3e8b310.tar.xz XMonadContrib-93dc8502e479479c31c6bbfc031dae15c3e8b310.zip | |
CopyWindow.hs: type signature for copy
darcs-hash:20071013090122-32816-93b90523b2609d2bf19066db80ae323a0231f692.gz
| -rw-r--r-- | CopyWindow.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/CopyWindow.hs b/CopyWindow.hs index 285b042..23cadb8 100644 --- a/CopyWindow.hs +++ b/CopyWindow.hs @@ -55,6 +55,7 @@ import StackSet -- %keybindlist , (f, m) <- [(view, 0), (shift, shiftMask), (copy, shiftMask .|. controlMask)]] -- | copy. Copy a window to a new workspace. +copy :: WorkspaceId -> WindowSet -> WindowSet copy n = copy' where copy' s = if n `tagMember` s && n /= tag (workspace (current s)) then maybe s (go s) (peek s) |