diff options
| author | Don Stewart <dons@galois.com> | 2007-11-08 01:35:39 +0100 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2007-11-08 01:35:39 +0100 |
| commit | 59882d0779b0c9dd4ced0d18208afed6fa18acf0 (patch) | |
| tree | d30eec4f3bdaae08b9ed20a87b67167162a682c5 /XMonad | |
| parent | 8b7896e27cd6b72c919214e4aeffa23e4e6b50d1 (diff) | |
| download | metatile-59882d0779b0c9dd4ced0d18208afed6fa18acf0.tar metatile-59882d0779b0c9dd4ced0d18208afed6fa18acf0.zip | |
maybe False (const True) -> isJust. spotted by shachaf
darcs-hash:20071108003539-cba2c-b435890d8990e3a7f6b2df40823db5b4ed913a02
Diffstat (limited to 'XMonad')
| -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 e5adfa1..33536ce 100644 --- a/XMonad/StackSet.hs +++ b/XMonad/StackSet.hs @@ -42,7 +42,7 @@ module XMonad.StackSet ( ) where import Prelude hiding (filter) -import Data.Maybe (listToMaybe,fromJust) +import Data.Maybe (listToMaybe,fromJust,isJust) import qualified Data.List as L (deleteBy,find,splitAt,filter,nub) import Data.List ( (\\) ) import qualified Data.Map as M (Map,insert,delete,empty) @@ -439,7 +439,7 @@ mapLayout f (StackSet v vs hs m) = StackSet (fScreen v) (map fScreen vs) (map fW -- | /O(n)/. Is a window in the StackSet. member :: Eq a => a -> StackSet i l a s sd -> Bool -member a s = maybe False (const True) (findTag a s) +member a s = isJust (findTag a s) -- | /O(1) on current window, O(n) in general/. -- Return Just the workspace tag of the given window, or Nothing |