diff options
| author | Don Stewart <dons@galois.com> | 2007-10-06 12:29:18 +0200 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2007-10-06 12:29:18 +0200 |
| commit | 2d2eb792a525070a4dbf16367aaf94135a01da36 (patch) | |
| tree | 2e031b925cca9f3214639643bb47f4b3a9be6406 | |
| parent | 1f47aa21adf9163374de2166d428b103ed6ca4f7 (diff) | |
| download | xmonad-2d2eb792a525070a4dbf16367aaf94135a01da36.tar.gz xmonad-2d2eb792a525070a4dbf16367aaf94135a01da36.tar.xz xmonad-2d2eb792a525070a4dbf16367aaf94135a01da36.zip | |
polish some syntax
darcs-hash:20071006102918-cba2c-a52b0f02f3ee7e7d68de508b9ba38c1637c15aca.gz
| -rw-r--r-- | StackSet.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/StackSet.hs b/StackSet.hs index 2616299..202ecce 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -423,10 +423,10 @@ ensureTags l allt st = et allt (map tag (workspaces st) \\ allt) st -- | Map a function on all the workspaces in the StackSet. mapWorkspace :: (Workspace i l a -> Workspace i l a) -> StackSet i l a s sd -> StackSet i l a s sd -mapWorkspace f s = s { current = updScr $ current s - , visible = map updScr $ visible s - , hidden = map f $ hidden s } - where updScr scr = scr { workspace = f $ workspace scr } +mapWorkspace f s = s { current = updScr (current s) + , visible = map updScr (visible s) + , hidden = map f (hidden s) } + where updScr scr = scr { workspace = f (workspace scr) } -- | Map a function on all the layouts in the StackSet. mapLayout :: (l -> l') -> StackSet i l a s sd -> StackSet i l' a s sd |