12 lines
229 B
Haskell
12 lines
229 B
Haskell
module Garden where
|
|
|
|
data FlowerType = Gardenia
|
|
| Daisy
|
|
| Rose
|
|
| Lilac
|
|
deriving Show
|
|
|
|
type Gardener = String
|
|
|
|
data Garden = Garden Gardener FlowerType deriving Show
|