Send ClassHints to manageHook

darcs-hash:20071001175246-a5988-008bb0123ca85784c32884ea5e6452747e1df0fb.gz

2 files changed, 5 insertions, 3 deletions

diff --git a/Config.hs b/Config.hs
index 3f403c1..1bf6445 100644
--- a/Config.hs
+++ b/Config.hs
@@ -28,6 +28,7 @@ import Data.Bits ((.|.))
 import qualified Data.Map as M
 import System.Exit
 import Graphics.X11.Xlib
+import Graphics.X11.Xlib.Extras (ClassHint(..))
 
 -- Extension-provided imports
 
@@ -62,8 +63,8 @@ modMask = mod1Mask
 defaultGaps :: [(Int,Int,Int,Int)]
 defaultGaps = [(0,0,0,0)] -- 15 for default dzen
 
-manageHook :: Window -> X (WindowSet -> WindowSet)
-manageHook _ = return id
+manageHook :: Window -> ClassHint -> X (WindowSet -> WindowSet)
+manageHook _ _ = return id
 
 -- |
 -- numlock handling:
diff --git a/Config.hs-boot b/Config.hs-boot
index 906ee3b..7c364c2 100644
--- a/Config.hs-boot
+++ b/Config.hs-boot
@@ -1,10 +1,11 @@
 module Config where
 import Graphics.X11.Xlib.Types (Dimension)
 import Graphics.X11.Xlib (KeyMask,Window)
+import Graphics.X11.Xlib.Extras (ClassHint)
 import XMonad
 borderWidth :: Dimension
 logHook     :: X ()
 numlockMask :: KeyMask
 workspaces :: [WorkspaceId]
 possibleLayouts :: [SomeLayout Window]
-manageHook :: Window -> X (WindowSet -> WindowSet)
+manageHook :: Window -> ClassHint -> X (WindowSet -> WindowSet)