blob: 04e35e772bbb46bb5a38428e71110ed34b8cf5eb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
module Plant
( GrowthStage (..)
, PlantType (..)
, Plant (..)
, Seed (..)
) where
data GrowthStage =
SSeed
| SSapling
| SGrown
data PlantType =
TFlower
| TCrop
| TTree
data Plant = Plant
{ plantName :: String
, plantType :: PlantType
, plantStage :: GrowthStage
}
data Seed = Seed
{ seedName :: String
, seedType :: PlantType }
|