aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2009-07-10 03:14:24 +0200
committerAdam Vogt <vogt.adam@gmail.com>2009-07-10 03:14:24 +0200
commit806dec564e2b55b91df1c963e56ad3937b5b87f8 (patch)
tree1835240b041106645021b124251f84c67e67affd /XMonad
parente18d0bb9b0ac13be7c0bbf7cdcdd2a1eb2edbe32 (diff)
downloadxmonad-806dec564e2b55b91df1c963e56ad3937b5b87f8.tar.gz
xmonad-806dec564e2b55b91df1c963e56ad3937b5b87f8.tar.xz
xmonad-806dec564e2b55b91df1c963e56ad3937b5b87f8.zip
Remove tabs from ManageHook.hs
Ignore-this: 13903f39b052c025a7bfa50fb701959c darcs-hash:20090710011424-1499c-8199d3837913d876e78b58c539525d578b27206e.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/ManageHook.hs2
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.