Control.Arrow.ArrowIf
class ArrowIf a
data IfThen a b