diff options
Diffstat (limited to 'XMonad/Actions/TagWindows.hs')
| -rw-r--r-- | XMonad/Actions/TagWindows.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/XMonad/Actions/TagWindows.hs b/XMonad/Actions/TagWindows.hs index 10331fe..86c2e9e 100644 --- a/XMonad/Actions/TagWindows.hs +++ b/XMonad/Actions/TagWindows.hs @@ -26,10 +26,9 @@ module XMonad.Actions.TagWindows ( TagPrompt, ) where -import Prelude hiding (catch) import Data.List (nub,sortBy) import Control.Monad -import Control.Exception +import Control.Exception as E import XMonad.StackSet hiding (filter) @@ -82,7 +81,7 @@ setTag s w = withDisplay $ \d -> -- reads from the \"_XMONAD_TAGS\" window property getTags :: Window -> X [String] getTags w = withDisplay $ \d -> - io $ catch (internAtom d "_XMONAD_TAGS" False >>= + io $ E.catch (internAtom d "_XMONAD_TAGS" False >>= getTextProperty d w >>= wcTextPropertyToTextList d) (econst [[]]) |