shithub: MicroHs

ref: d870a2fe07edafdc829a76af55792551a8fae394
dir: /tests/OrPat.hs/

View raw version 
module OrPat where

data Sweet = Cupcake | Liquorice | Cookie | Raisins

taste :: Sweet -> Bool
tasty (Cupcake; Cookie) = True
tasty (Liquorice; Raisins) = False

main :: IO ()
main = print $ map tasty [Cupcake, Liquorice, Cupcake, Raisins]