[XMonad] Remove ifL

This commit is contained in:
Ivan Malison 2016-11-26 09:53:47 -08:00
parent 46a5bb1daa
commit 7fa87fd82c
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -87,9 +87,6 @@ if' :: Bool -> a -> a -> a
if' True x _ = x
if' False _ y = y
ifL :: a -> a -> Bool -> a
ifL a b c = if' c a b
toggleInMap' d k m =
let existingValue = M.findWithDefault d k m
in M.insert k (not existingValue) m
@ -241,7 +238,9 @@ myWindowBringerConfig =
}
classIfMatches window entry =
ifL (Just $ snd entry) Nothing <$> runQuery (fst entry) window
if' <$> runQuery (fst entry) window <*>
pure (Just $ snd entry) <*>
pure Nothing
getClassRaw w = fmap resClass $ withDisplay $ io . flip getClassHint w