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
@@ -44,6 +44,8 @@ import qualified Data.IntSet as IS
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map.Strict as M
 import SDL (Scancode, MouseButton)
+import Data.Monoid
+type CRUpdate = Creature -> World -> (Endo World, Maybe Creature)
 data World = World 
    { _keys                 :: !(S.Set Scancode)
    , _mouseButtons         :: !(S.Set MouseButton)
@@ -157,10 +159,9 @@ data Creature = Creature
    , _crID             :: Int
    , _crPict           :: Creature -> World -> Picture
    , _crUpdate     
-        :: World 
-        -> (World -> World,StdGen) 
-        -> Creature 
-        -> ((World -> World,StdGen), Maybe Creature)
+        :: Creature 
+        -> World 
+        -> (Endo World, Maybe Creature)
    , _crRad            :: Float
    , _crMass           :: Float
    , _crHP             :: Int