From 0ddd66e3e0778c1af438e6519888c77aa3935756 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Tue, 2 Oct 2007 19:40:24 +0200
Subject: Pass window name and class info to manageHook

darcs-hash:20071002174024-a5988-0402595a0c982bc7890a7054b2ca3ff5bcaf94fc.gz
---
 Config.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index 1bf6445..4697d46 100644
--- a/Config.hs
+++ b/Config.hs
@@ -63,7 +63,9 @@ modMask = mod1Mask
 defaultGaps :: [(Int,Int,Int,Int)]
 defaultGaps = [(0,0,0,0)] -- 15 for default dzen
 
-manageHook :: Window -> ClassHint -> X (WindowSet -> WindowSet)
+-- | manageHook.  Execute arbitrary actions and WindowSet manipulations when
+-- managing a new window.
+manageHook :: Window -> (String, String, String) -> X (WindowSet -> WindowSet)
 manageHook _ _ = return id
 
 -- |
-- 
cgit v1.2.3