From 7133a728596918544601a18e3090281eaff34ad1 Mon Sep 17 00:00:00 2001 From: melody! Date: Wed, 7 Aug 2024 21:23:52 -0400 Subject: did stuff --- src/Plant.hs | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 src/Plant.hs (limited to 'src/Plant.hs') 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 } + -- cgit 1.4.1-2-gfad0