Fix setting TAG after BLOSSOM
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 12 Jun 2009 13:50:46 +0000 (15:50 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 12 Jun 2009 13:50:46 +0000 (15:50 +0200)
src/Lseed/LSystem.hs

index b210e48..6ec97da 100644 (file)
@@ -50,6 +50,7 @@ applyLSystem rgen rules plant = let (maxPrio, result) = go maxPrio plant -- grea
                        newForks = map (\(angle, newSize, ut) -> Plant (EnlargingTo newSize) 0 angle (fromMaybe oldUt ut) []) branches
                applyAction (Blossom mut) 
                        = p { pData = GrowingSeed 0
+                           , pUserTag = fromMaybe oldUt mut
                            , pBranches = ps'
                            }