bool-extras-0.2.0: examples/Bool.hs

module Bool where

import Data.Bool.Extras

yesOrNo :: Bool -> String
yesOrNo = bool "no" "yes"

main = putStrLn (yesOrNo True)