summaryrefslogtreecommitdiffstats
path: root/Operations.hs
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-10-03 18:24:04 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-10-03 18:24:04 +0200
commit1888686182ff298b4decec0d660e5e8522feed54 (patch)
tree8ed40d175841624d0749952920a690066bdea0b2 /Operations.hs
parent4433b1119ca12a43c7c023f734d368f400a3ec4c (diff)
downloadmetatile-1888686182ff298b4decec0d660e5e8522feed54.tar
metatile-1888686182ff298b4decec0d660e5e8522feed54.zip
manageHook: use the curry style, better documentation
darcs-hash:20071003162404-a5988-0e2b858c29ae9ba45ffa28137b61f5ac671bf005
Diffstat (limited to 'Operations.hs')
-rw-r--r--Operations.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs
index 8c2623f..62e007c 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -66,7 +66,7 @@ manage w = whenX (fmap not $ isClient w) $ withDisplay $ \d -> do
n <- fmap (fromMaybe "") $ io $ fetchName d w
(ClassHint rn rc) <- io $ getClassHint d w
- g <- manageHook w (n, rn, rc)
+ g <- manageHook w n rn rc
windows (g . f)
-- | unmanage. A window no longer exists, remove it from the window