diff options
Diffstat (limited to 'XMonad/Actions/TagWindows.hs')
-rw-r--r-- | XMonad/Actions/TagWindows.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/XMonad/Actions/TagWindows.hs b/XMonad/Actions/TagWindows.hs index d972aa4..a300f88 100644 --- a/XMonad/Actions/TagWindows.hs +++ b/XMonad/Actions/TagWindows.hs @@ -25,14 +25,19 @@ module XMonad.Actions.TagWindows ( tagDelPrompt ) where +import Prelude hiding (catch) import Data.List (nub,sortBy) import Control.Monad +import Control.Exception import XMonad.StackSet hiding (filter) import XMonad.Prompt import XMonad hiding (workspaces) +econst :: Monad m => a -> IOException -> m a +econst = const . return + -- $usage -- -- To use window tags, import this module into your @~\/.xmonad\/xmonad.hs@: @@ -79,7 +84,7 @@ getTags w = withDisplay $ \d -> io $ catch (internAtom d "_XMONAD_TAGS" False >>= getTextProperty d w >>= wcTextPropertyToTextList d) - (\_ -> return [[]]) + (econst [[]]) >>= return . words . unwords -- | check a window for the given tag |