twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-06 23:11:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.C.Prime: add ifThenElse binding

Browse Source 
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
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
XMonad/Config/Prime.hs
View File

@@ -87,6 +87,7 @@ module Prelude,
-- Regular people shouldn't need to know about these. -- Regular people shouldn't need to know about these.
Prime, Prime,
(>>), (>>),
ifThenElse,
-- * Example config -- * Example config
-- $example -- $example
@@ -138,6 +139,12 @@ type Prime l l' = XConfig l -> IO (XConfig l')
(>>) :: Prime l l' -> Prime l' l'' -> Prime l l'' (>>) :: Prime l l' -> Prime l' l'' -> Prime l l''
(>>) x y c = (P.>>=) (x c) y (>>) 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 -- | 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 -- default 'XConfig') into your do-block, takes the modified config out of your
-- do-block, and then runs xmonad. -- do-block, and then runs xmonad.