diff options
| author | Joachim Fasting <joachim.fasting@gmail.com> | 2007-09-19 23:45:26 +0200 |
|---|---|---|
| committer | Joachim Fasting <joachim.fasting@gmail.com> | 2007-09-19 23:45:26 +0200 |
| commit | 8c6f117de1b8986b66a81f4a616af180d420783e (patch) | |
| tree | 17b2f22cdd4d06728f5d0bcea0c481ee465a613e | |
| parent | 406dda4afb748c567ef1e050198a93f0a87e3679 (diff) | |
| download | XMonadContrib-8c6f117de1b8986b66a81f4a616af180d420783e.tar.gz XMonadContrib-8c6f117de1b8986b66a81f4a616af180d420783e.tar.xz XMonadContrib-8c6f117de1b8986b66a81f4a616af180d420783e.zip | |
CopyWindow.copy: remove seemingly unnecessary parameter from helper func.
darcs-hash:20070919214526-928c4-5ebbf4d40b047bf67c3662665d0fa1fffd1d1bb9.gz
| -rw-r--r-- | CopyWindow.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/CopyWindow.hs b/CopyWindow.hs index 86bbe1d..c673fc8 100644 --- a/CopyWindow.hs +++ b/CopyWindow.hs @@ -56,10 +56,10 @@ import StackSet -- | copy. Copy a window to a new workspace. copy :: WorkspaceId -> X () -copy n = windows (copy' n) - where copy' n s = if n `tagMember` s && n /= tag (workspace (current s)) - then maybe s (go s) (peek s) - else s +copy n = windows copy' + where copy' s = if n `tagMember` s && n /= tag (workspace (current s)) + then maybe s (go s) (peek s) + else s go s w = view (tag (workspace (current s))) $ insertUp' w $ view n s insertUp' a s = modify (Just $ Stack a [] []) (\(Stack t l r) -> Just $ Stack a (L.delete a l) (L.delete a (t:r))) s |