Add file, fix lamp doDamage space leak

2021-05-12 20:48:55 +02:00
parent ead87af3c1
commit 9b3fbba393
13 changed files with 165 additions and 226 deletions
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 module Dodge.Creature.Update
  where
 import Dodge.Data
@@ -7,6 +8,9 @@ import System.Random

 type CRUpdate = World -> (World -> World,StdGen) -> Creature -> ((World -> World,StdGen), Maybe Creature)

-unrandUpdate :: (Creature -> World -> World) -> (Creature -> Maybe Creature)
+unrandUpdate 
+    :: (Creature -> World -> World) 
+    -> (Creature -> Maybe Creature)
    -> CRUpdate
+{-# INLINE unrandUpdate #-}
 unrandUpdate h cF w (f,g) cr = ( ( h cr . f , g) , cF cr )