haskellisher style
authorJoachim Breitner <mail@joachim-breitner.de>
Thu, 7 May 2009 22:30:47 +0000 (00:30 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Thu, 7 May 2009 22:30:47 +0000 (00:30 +0200)
src/Lseed/LSystem.hs

index 8038a0c..938e23c 100644 (file)
@@ -29,7 +29,7 @@ applyLSystem rgen rules plant = go plant
        noAction (Stipe () oldSize ps)
                = Stipe Nothing oldSize $ mapSprouts go ps
 
-       go p = case mapMaybe (\r -> r p) rules of
+       go p = case mapMaybe ($ p) rules of
                []      -> noAction p
                choices -> applyAction (chooseWeighted rgen choices) p