diff options
author | melody! | 2024-08-07 21:23:52 -0400 |
---|---|---|
committer | melody! | 2024-08-07 21:23:52 -0400 |
commit | 7133a728596918544601a18e3090281eaff34ad1 (patch) | |
tree | 79aa8aec9445372c8e6fe3f8bef723dd76cdefb3 /src/Plant.hs | |
parent | 7a6eb573543666ef3f642f84dbb4a386429bf75e (diff) |
did stuff
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 } + |