Skip to content

Instantly share code, notes, and snippets.

@jlamothe

jlamothe/Pizza.hs

Created April 12, 2015 21:21
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save jlamothe/639bff3a82d206a7e820 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save jlamothe/639bff3a82d206a7e820 to your computer and use it in GitHub Desktop.
Download ZIP
Pizza.hs
Raw
Pizza.hs
module Pizza ( Pizza (..)
, Topping (..)
) where
data Pizza = Pizza [Topping]
deriving (Eq, Show)
data Topping =
Pepperoni |
GreenPepper |
Mushroom |
Olives |
Onion |
Anchovies |
Bacon |
Pineapple |
Sausage |
Chicken
deriving (Eq, Show)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment