Haskell-book/11/Garden.hs


1
2
3
4
5
6
7
8
9
10
11

module Garden where

data FlowerType = Gardenia
                | Daisy
                | Rose
                | Lilac
                deriving Show

type Gardener = String

data Garden = Garden Gardener FlowerType deriving Show