diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-19 07:08:20 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-19 07:08:20 +0100 |
| commit | db32b08589019fd7f8b1397ace31d31cc69be106 (patch) | |
| tree | 416ced4aebd5d188c66206cd1d979e8d7e061e63 /XMonad/Operations.hs | |
| parent | 1584812b212d2618b4a823c9e8a9b202f95f70cb (diff) | |
| download | xmonad-db32b08589019fd7f8b1397ace31d31cc69be106.tar.gz xmonad-db32b08589019fd7f8b1397ace31d31cc69be106.tar.xz xmonad-db32b08589019fd7f8b1397ace31d31cc69be106.zip | |
ManageHook is a Monoid
darcs-hash:20071119060820-a5988-f70bb442a74c5ca8f6670184fb7eea6ca40ec793.gz
Diffstat (limited to 'XMonad/Operations.hs')
| -rw-r--r-- | XMonad/Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs index 1c18690..2d2a6ce 100644 --- a/XMonad/Operations.hs +++ b/XMonad/Operations.hs @@ -64,7 +64,7 @@ manage w = whenX (fmap not $ isClient w) $ withDisplay $ \d -> do where i = fromMaybe (W.tag . W.workspace . W.current $ ws) $ W.lookupWorkspace sc ws mh <- asks (manageHook . config) - g <- mh w `catchX` return id + g <- runManageHook mh w `catchX` return id windows (g . f) -- | unmanage. A window no longer exists, remove it from the window |