module Control.IfThenElse ( ifThenElse ) where

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