complete comment
authorJoachim Breitner <mail@joachim-breitner.de>
Wed, 18 Feb 2009 22:33:19 +0000 (23:33 +0100)
committerJoachim Breitner <mail@joachim-breitner.de>
Wed, 18 Feb 2009 22:33:19 +0000 (23:33 +0100)
src/main.hs

index 2431549..ee22940 100644 (file)
@@ -47,7 +47,7 @@ growPlanted :: (RandomGen g) => g -> Planted () -> Planted (Maybe Double)
 growPlanted rgen planted =
        planted { phenotype = applyLSystem rgen (genome planted) (phenotype planted) }
 
--- | Finishes Growth by reading lenght from the 
+-- | Finishes Growth by reading lenght from the additional information field
 finishGrowth :: Garden (Maybe Double) -> Garden ()
 finishGrowth = applyGrowth' (flip const)