From 7fa87fd82cb4040ea3170605e2ce84301800f803 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Sat, 26 Nov 2016 09:53:47 -0800
Subject: [PATCH] [XMonad] Remove ifL

---
 dotfiles/xmonad/xmonad.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 0d171b0b..347fa414 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -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