summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2007-10-06 12:29:18 +0200
committerDon Stewart <dons@galois.com>2007-10-06 12:29:18 +0200
commit94667339e6b269e016852b2f508367e93c1c59a9 (patch)
tree2e031b925cca9f3214639643bb47f4b3a9be6406
parentb93bc76c80fe7f9b095f40cf4d4c01ab0af84bfa (diff)
downloadmetatile-94667339e6b269e016852b2f508367e93c1c59a9.tar
metatile-94667339e6b269e016852b2f508367e93c1c59a9.zip
polish some syntax
darcs-hash:20071006102918-cba2c-a52b0f02f3ee7e7d68de508b9ba38c1637c15aca
-rw-r--r--StackSet.hs8
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