diff options
author | Spencer Janssen <spencerjanssen@gmail.com> | 2010-02-14 03:57:50 +0100 |
---|---|---|
committer | Spencer Janssen <spencerjanssen@gmail.com> | 2010-02-14 03:57:50 +0100 |
commit | 744a7ec219e58f40daf5bacc088c10da91269f4e (patch) | |
tree | 7cc0b7ede3b1efed764eda7eaa5e778b9c7350c7 /XMonad/StackSet.hs | |
parent | f9cce225daf6c837da199f36146adc95166874bb (diff) | |
download | xmonad-744a7ec219e58f40daf5bacc088c10da91269f4e.tar.gz xmonad-744a7ec219e58f40daf5bacc088c10da91269f4e.tar.xz xmonad-744a7ec219e58f40daf5bacc088c10da91269f4e.zip |
Various clean-ups suggested by HLint
Ignore-this: ccaa6e774f2f8169e6083eddcffe31b6
darcs-hash:20100214025750-25a6b-c15d6ca0ac2f1dc7d3da2f7b311584df7f96dffd.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/StackSet.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/StackSet.hs b/XMonad/StackSet.hs index 98497cd..72c3edd 100644 --- a/XMonad/StackSet.hs +++ b/XMonad/StackSet.hs @@ -52,7 +52,7 @@ module XMonad.StackSet ( ) where import Prelude hiding (filter) -import Data.Maybe (listToMaybe,isJust) +import Data.Maybe (listToMaybe,isJust,fromMaybe) import qualified Data.List as L (deleteBy,find,splitAt,filter,nub) import Data.List ( (\\) ) import qualified Data.Map as M (Map,insert,delete,empty) @@ -369,7 +369,7 @@ reverseStack (Stack t ls rs) = Stack t rs ls -- focusWindow :: (Eq s, Eq a, Eq i) => a -> StackSet i l a s sd -> StackSet i l a s sd focusWindow w s | Just w == peek s = s - | otherwise = maybe s id $ do + | otherwise = fromMaybe s $ do n <- findTag w s return $ until ((Just w ==) . peek) focusUp (view n s) |