Move toward diagnosing state update leak

2021-08-18 11:53:14 +02:00
parent cfb27d4a76
commit a6f08aef16
9 changed files with 81 additions and 91 deletions
@@ -19,6 +19,7 @@ import Picture
 import Control.Lens
 import qualified Data.IntMap.Strict as IM
 import Data.List
+import Data.Monoid

 defaultCreature :: Creature
 defaultCreature = Creature
@@ -29,7 +30,7 @@ defaultCreature = Creature
    , _crMvDir  = 0
    , _crID     = 1
    , _crPict   = \_ _ -> setLayer 0 $ onLayer CrLayer $ circleSolid 10
-    , _crUpdate = \ _ f cr -> (f , Just cr)
+    , _crUpdate = \cr _ -> (Endo id , Just cr)
    , _crRad    = 10
    , _crMass   = 10
    , _crHP     = 100