Remove unused function
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 30 May 2009 15:33:12 +0000 (17:33 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 30 May 2009 15:33:12 +0000 (17:33 +0200)
src/Lseed/Logic.hs

index b9c295d..185a7e1 100644 (file)
@@ -72,10 +72,6 @@ growPlanted planted light =
                 in \tickDiff -> applyGrowth (tickDiff * growthFraction) planted
            else const planted
 
                 in \tickDiff -> applyGrowth (tickDiff * growthFraction) planted
            else const planted
 
--- | Finishes Growth by reading lenght from the additional information field
-finishGrowth :: GrowingPlant -> Plant ()
-finishGrowth = fmap (const ()) . applyGrowth' (flip const)
-
 -- | Applies Growth at given fraction, leaving the target length in place
 applyGrowth :: Double -> GrowingPlanted -> GrowingPlanted
 applyGrowth r = mapPlanted (applyGrowth' (\a b -> a * (1-r) + b * r))
 -- | Applies Growth at given fraction, leaving the target length in place
 applyGrowth :: Double -> GrowingPlanted -> GrowingPlanted
 applyGrowth r = mapPlanted (applyGrowth' (\a b -> a * (1-r) + b * r))