-- | Extra functions for dealing with Bool.

module Data.Bool.Extra (bool) where

-- | An if/else condition on the given value.
bool :: (a -> b) -> (a -> b) -> (a -> Bool) -> a -> b
bool true false p v = if p v then true v else false v