diff options
Diffstat (limited to 'src/Plant.hs')
-rw-r--r-- | src/Plant.hs | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/Plant.hs b/src/Plant.hs new file mode 100644 index 0000000..04e35e7 --- /dev/null +++ b/src/Plant.hs @@ -0,0 +1,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 } + |