diff options
author | Daniel Wagner <daniel@wagner-home.com> | 2011-07-31 19:08:50 +0200 |
---|---|---|
committer | Daniel Wagner <daniel@wagner-home.com> | 2011-07-31 19:08:50 +0200 |
commit | 39f010d82d0292d9417a06abaf91dabb43ea3ef4 (patch) | |
tree | 1c701e3b4781a6460131c9e28e2705d8fb923f64 /XMonad/Actions/TagWindows.hs | |
parent | 3eae9324c087da3fae57f2dcd9181eb850f12c1a (diff) | |
download | XMonadContrib-39f010d82d0292d9417a06abaf91dabb43ea3ef4.tar.gz XMonadContrib-39f010d82d0292d9417a06abaf91dabb43ea3ef4.tar.xz XMonadContrib-39f010d82d0292d9417a06abaf91dabb43ea3ef4.zip |
GHC 7 compat
Ignore-this: 17a43a709e70ebccc925e016d7057399
* true error: more modules export foldl/foldl'/foldr, so explicitly use the Data.Foldable one
* -Werror error: transition from Control.OldException to Control.Exception, assuming everything was IOException
darcs-hash:20110731170850-76d51-71271524485f6d10f84521f271182bea5085d400.gz
Diffstat (limited to '')
-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 |