src/Plant.hs


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 }