diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-01 19:52:46 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-01 19:52:46 +0200 |
commit | 75c02d646e82a2ec17c4766361b678415db62d7e (patch) | |
tree | dec6ab2db805fd21a8117e883e0dee089e629d91 /Operations.hs | |
parent | d4a93abae6e1e07b855cb156cdec21bd404ce477 (diff) | |
download | metatile-75c02d646e82a2ec17c4766361b678415db62d7e.tar metatile-75c02d646e82a2ec17c4766361b678415db62d7e.zip |
Send ClassHints to manageHook
darcs-hash:20071001175246-a5988-008bb0123ca85784c32884ea5e6452747e1df0fb
Diffstat (limited to 'Operations.hs')
-rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |