From 2fe61ecb2ec4bff0ae9422a4814c136b6e63790a Mon Sep 17 00:00:00 2001
From: Devin Mullins <devinmullins@gmail.com>
Date: Wed, 24 Sep 2014 21:15:09 +0200
Subject: X.C.Prime: add ifThenElse binding

Ignore-this: ae775c418c27301b9c12d2a233502cec
This is necessary for if-then-else support in the user's config.

darcs-hash:20140924191509-c7120-7e3ce81753c191843eb74426292db3af31197abe.gz
---
 XMonad/Config/Prime.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'XMonad/Config/Prime.hs')

diff --git a/XMonad/Config/Prime.hs b/XMonad/Config/Prime.hs
index 04f1985..2a617f5 100644
--- a/XMonad/Config/Prime.hs
+++ b/XMonad/Config/Prime.hs
@@ -87,6 +87,7 @@ module Prelude,
 -- Regular people shouldn't need to know about these.
 Prime,
 (>>),
+ifThenElse,
 
 -- * Example config
 -- $example
@@ -138,6 +139,12 @@ type Prime l l' = XConfig l -> IO (XConfig l')
 (>>) :: Prime l l' -> Prime l' l'' -> Prime l l''
 (>>) x y c = (P.>>=) (x c) y
 
+-- | Because of RebindableSyntax, this is necessary to enable you to use
+-- if-then-else expressions. No need to call it directly.
+ifThenElse :: Bool -> a -> a -> a
+ifThenElse True  a _ = a
+ifThenElse False _ b = b
+
 -- | This is the xmonad main function. It passes 'XMonad.Config.def' (the
 -- default 'XConfig') into your do-block, takes the modified config out of your
 -- do-block, and then runs xmonad.
-- 
cgit v1.2.3