From 4ac83b98a1abf352c27cdd4caefaf4dc86ef59e4 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 9 Nov 2007 03:47:22 +0100
Subject: New ManageHook system

darcs-hash:20071109024722-a5988-c499d006a8a4a48dd7c8cbaf4e4ea9635ceb1ec4.gz
---
 XMonad/Operations.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'XMonad/Operations.hs')

diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs
index 3d9a3b0..fa5d3cc 100644
--- a/XMonad/Operations.hs
+++ b/XMonad/Operations.hs
@@ -63,10 +63,8 @@ manage w = whenX (fmap not $ isClient w) $ withDisplay $ \d -> do
              | otherwise                  = W.insertUp w ws
             where i = fromMaybe (W.tag . W.workspace . W.current $ ws) $ W.lookupWorkspace sc ws
 
-    n <- fmap (fromMaybe "") $ io $ fetchName d w
-    (ClassHint rn rc) <- io $ getClassHint d w
     mh <- asks (manageHook . config)
-    g <- mh w n rn rc `catchX` return id
+    g <- mh w `catchX` return id
     windows (g . f)
 
 -- | unmanage. A window no longer exists, remove it from the window
-- 
cgit v1.2.3