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 | 94667339e6b269e016852b2f508367e93c1c59a9 (patch) | |
| tree | 2e031b925cca9f3214639643bb47f4b3a9be6406 | |
| parent | b93bc76c80fe7f9b095f40cf4d4c01ab0af84bfa (diff) | |
| download | metatile-94667339e6b269e016852b2f508367e93c1c59a9.tar metatile-94667339e6b269e016852b2f508367e93c1c59a9.zip | |
polish some syntax
darcs-hash:20071006102918-cba2c-a52b0f02f3ee7e7d68de508b9ba38c1637c15aca
| -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 |