From 2d2eb792a525070a4dbf16367aaf94135a01da36 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@galois.com>
Date: Sat, 6 Oct 2007 12:29:18 +0200
Subject: polish some syntax

darcs-hash:20071006102918-cba2c-a52b0f02f3ee7e7d68de508b9ba38c1637c15aca.gz
---
 StackSet.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'StackSet.hs')

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
-- 
cgit v1.2.3