shithub: MicroHs

ref: 51f905138babfc67f3291a40c8b5ddd7ec85b73d
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]