diff options
author | Adam Vogt <vogt.adam@gmail.com> | 2014-05-02 07:58:23 +0200 |
---|---|---|
committer | Adam Vogt <vogt.adam@gmail.com> | 2014-05-02 07:58:23 +0200 |
commit | f945ea48f33119f605cb728a00b5498425fb6293 (patch) | |
tree | b1ecb67e289c6d01bbdf98b39aca1e9b003365b5 /XMonad/ManageHook.hs | |
parent | a14bbd10b915f8b8a54c1adf6266ba472e85e795 (diff) | |
download | xmonad-f945ea48f33119f605cb728a00b5498425fb6293.tar.gz xmonad-f945ea48f33119f605cb728a00b5498425fb6293.tar.xz xmonad-f945ea48f33119f605cb728a00b5498425fb6293.zip |
avoid warnings from missing Prelude.catch in ghc>
Ignore-this: 3e544b29759ed703e8741f265903210c
darcs-hash:20140502055823-1499c-135896dc7af4c376cdeccac8775dbcf2106f4109.gz
Diffstat (limited to 'XMonad/ManageHook.hs')
-rw-r--r-- | XMonad/ManageHook.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs index 856c742..aa5ae32 100644 --- a/XMonad/ManageHook.hs +++ b/XMonad/ManageHook.hs @@ -18,11 +18,11 @@ module XMonad.ManageHook where -import Prelude hiding (catch) import XMonad.Core import Graphics.X11.Xlib.Extras import Graphics.X11.Xlib (Display, Window, internAtom, wM_NAME) -import Control.Exception.Extensible (bracket, catch, SomeException(..)) +import Control.Exception.Extensible (bracket, SomeException(..)) +import qualified Control.Exception.Extensible as E import Control.Monad.Reader import Data.Maybe import Data.Monoid @@ -74,10 +74,10 @@ title = ask >>= \w -> liftX $ do let getProp = (internAtom d "_NET_WM_NAME" False >>= getTextProperty d w) - `catch` \(SomeException _) -> getTextProperty d w wM_NAME + `E.catch` \(SomeException _) -> getTextProperty d w wM_NAME extract prop = do l <- wcTextPropertyToTextList d prop return $ if null l then "" else head l - io $ bracket getProp (xFree . tp_value) extract `catch` \(SomeException _) -> return "" + io $ bracket getProp (xFree . tp_value) extract `E.catch` \(SomeException _) -> return "" -- | Return the application name. appName :: Query String |