diff options
| author | Devin Mullins <me@twifkak.com> | 2007-10-06 07:56:52 +0200 |
|---|---|---|
| committer | Devin Mullins <me@twifkak.com> | 2007-10-06 07:56:52 +0200 |
| commit | 52c08c5c47a4025db21eef30282a88a377008a7e (patch) | |
| tree | 2cd9cda66abff7c7f826557d1031be8e5730d049 | |
| parent | 2b22daa5d57a04d2a3e04b1c7260d835262b2f20 (diff) | |
| download | XMonadContrib-52c08c5c47a4025db21eef30282a88a377008a7e.tar.gz XMonadContrib-52c08c5c47a4025db21eef30282a88a377008a7e.tar.xz XMonadContrib-52c08c5c47a4025db21eef30282a88a377008a7e.zip | |
get rid of obviated comment
darcs-hash:20071006055652-78224-15676977cc5fad89bac32883cb885307d536ca3f.gz
| -rw-r--r-- | SwapWorkspaces.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/SwapWorkspaces.hs b/SwapWorkspaces.hs index 0dbcfb1..b792fd7 100644 --- a/SwapWorkspaces.hs +++ b/SwapWorkspaces.hs @@ -43,7 +43,6 @@ import StackSet swapWithCurrent :: Eq i => i -> StackSet i l a s sd -> StackSet i l a s sd swapWithCurrent t s = swapWorkspaces t (tag $ workspace $ current s) s --- Stole this from StackSet.renameTag -- extracted the traversal code they have in common as mapWorkspaces swapWorkspaces :: Eq i => i -> i -> StackSet i l a s sd -> StackSet i l a s sd swapWorkspaces t1 t2 = mapWorkspace swap where swap w = if tag w == t1 then w { tag = t2 } |