diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-07-10 03:14:24 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-07-10 03:14:24 +0200 |
| commit | 9ad0dcb6014ef075698a8306d86322732ced476a (patch) | |
| tree | 1835240b041106645021b124251f84c67e67affd /XMonad | |
| parent | 12510fb401dd85992dce79a4bc15005ab4c53a9d (diff) | |
| download | metatile-9ad0dcb6014ef075698a8306d86322732ced476a.tar metatile-9ad0dcb6014ef075698a8306d86322732ced476a.zip | |
Remove tabs from ManageHook.hs
Ignore-this: 13903f39b052c025a7bfa50fb701959c
darcs-hash:20090710011424-1499c-8199d3837913d876e78b58c539525d578b27206e
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/ManageHook.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs index fc7017d..be9bc58 100644 --- a/XMonad/ManageHook.hs +++ b/XMonad/ManageHook.hs @@ -74,7 +74,7 @@ title = ask >>= \w -> liftX $ do (internAtom d "_NET_WM_NAME" False >>= getTextProperty d w) `catch` \_ -> getTextProperty d w wM_NAME extract prop = do l <- wcTextPropertyToTextList d prop - return $ if null l then "" else head l + return $ if null l then "" else head l io $ bracket getProp (xFree . tp_value) extract `catch` \_ -> return "" -- | Return the application name. |