-- Hoogle documentation, generated by Haddock
-- See Hoogle, http://www.haskell.org/hoogle/


-- | A fold function for Bool
--   
--   The <a>bool</a> function allows folding over boolean values.
--   
--   This is comparable to the <a>maybe</a> or <a>either</a> functions on
--   their respective types.
--   
--   The <a>bool</a> function is a replacement for the build-in <tt>if then
--   else</tt>-syntax. However, since it is a function, it can be partially
--   applied and passed around to higher order functions, like so:
--   
--   <pre>
--   ghci&gt; :m + Data.Bool.Extras
--   ghci&gt; let yesOrNo = bool "no" "yes"
--   ghci&gt; map yesOrNo [True, False, True]
--   ["yes", "no", "yes"]
--   </pre>
--   
--   Note that the arguments to <a>bool</a> are in the opposite order of
--   the <tt>if then else</tt>-syntax; First the false value, then the true
--   value, and finally the boolean.
@package bool-extras
@version 0.2.0


-- | This module provides some convenient functions for dealing with
--   Booleans.
--   
--   The most important one being <a>bool</a>, a function that can be used
--   in place of the build-in <tt>if then else</tt>-syntax.
module Data.Bool.Extras

-- | Defines the fold over a boolean value.
--   
--   Returns its first argument when applied to <a>False</a>, returns its
--   second argument when applied to <a>True</a>.
--   
--   Comparable to the <a>maybe</a> or <a>either</a> functions for their
--   respective data types.
bool :: a -> a -> Bool -> a

-- | Boolean operation for monoids.
--   
--   Returns its first argument when applied to <a>True</a>, returns
--   <a>mempty</a> when applied to <a>False</a>.
mwhen :: (Monoid a) => a -> Bool -> a

-- | Boolean operation for arrows.
--   
--   Returns its first argument when applied to <a>True</a>, returns
--   <a>returnA</a> when applied to <a>False</a>.
whenA :: (Arrow a) => a b b -> Bool -> a b b

-- | Boolean operation for categories.
--   
--   Returns its first argument when applied to <a>True</a>, returns
--   <tt>Control.Category.</tt><a>id</a> when applied to <a>False</a>.
whenC :: (Category cat) => cat b b -> Bool -> cat b b

-- | Boolean operation for monads.
--   
--   Returns its first argument when applied to <a>True</a>, returns
--   <tt>Control.Category.</tt><a>id</a> when applied to <a>False</a>.
--   
--   <tt>Control.Monad.</tt><a>when</a> can be expressed in terms of
--   <a>whenM</a>, like so:
--   
--   <pre>
--   when :: Monad m =&gt; Bool -&gt; m () -&gt; m ()
--   when b m = (const m `whenM` b) ()
--   </pre>
whenM :: (Monad m) => (b -> m b) -> Bool -> (b -> m b)

-- | Algebra for Bool data type.
--   
--   The first field of the pair represents the <a>False</a> value, the
--   second field represents the <a>True</a> value.
type BoolAlgebra r = (r, r)

-- | Catamorphism for booleans.
cata :: BoolAlgebra r -> Bool -> r

-- | Anamorphism for booleans.
ana :: (b -> Bool) -> b -> Bool