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 }