sr-extra-1.46.3: Extra/Bool.hs

module Extra.Bool
    ( cond
    ) where

cond :: a -> a -> Bool -> a
cond t _ True = t
cond _ f False = f