[XMonad] Add if' and ifL to fix window bringer stuff

2016-11-25 18:38:32 -08:00 · 2016-11-25 18:38:32 -08:00 · 640b016cf9
commit 640b016cf9
parent a75fa5f584
1 changed files with 7 additions and 0 deletions
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@ -80,6 +80,13 @@ tee = (fmap . fmap . fmap) (fmap fst) fork

 findM :: (Monad m) => (a -> m (Maybe b)) -> [a] -> m (Maybe b)
 findM f = runMaybeT . msum . map (MaybeT . f)
+
+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

 -- Selectors