shithub: MicroHs

ref: 2bb5d671ca5039456bfbad16ddb26f42573f3fd2
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]