shithub: MicroHs

ref: dda1943b64afc23dee860b4f058c7f182748b7f7
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]