From 5589ff7b642c0bfb204c0fa0d6a3fcb2f3b7d777 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 1 Oct 2007 19:52:46 +0200
Subject: Send ClassHints to manageHook

darcs-hash:20071001175246-a5988-008bb0123ca85784c32884ea5e6452747e1df0fb.gz
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 3e447be..41ee9c2 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -63,7 +63,7 @@ manage w = whenX (fmap not $ isClient w) $ withDisplay $ \d -> do
         f ws | isFixedSize || isTransient = W.float w (adjust rr) . W.insertUp w . W.view i $ ws
              | otherwise                  = W.insertUp w ws
             where i = fromMaybe (W.tag . W.workspace . W.current $ ws) $ W.lookupWorkspace sc ws
-    g <- manageHook w
+    g <- manageHook w =<< io (getClassHint d w)
     windows (g . f)
 
 -- | unmanage. A window no longer exists, remove it from the window
-- 
cgit v1.2.3