Cleanup, trying to diagnose space leak in crit update

2021-12-09 22:12:44 +00:00
parent bd94044445
commit 3c35a04531
23 changed files with 203 additions and 178 deletions
@@ -3,11 +3,10 @@ module Dodge.Creature.Update
    ) where
 import Dodge.Data

-import Data.Monoid

 unrandUpdate 
    :: (Creature -> World -> World) 
    -> (Creature -> Maybe Creature)
    -> CRUpdate
 {-# INLINE unrandUpdate #-}
-unrandUpdate h cF cr _ = ( Endo (h cr) , cF cr )
+unrandUpdate h cF cr _ = ( (h cr) , cF cr )