X.C.Prime: add ifThenElse binding

This is necessary for if-then-else support in the user's config.
This commit is contained in:
Devin Mullins
2014-09-24 19:15:09 +00:00
parent c5290be3c8
commit cbcd42dc83

View File

@@ -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.