Attempt to fix some space leaks, general cleanup

2022-08-23 23:00:12 +01:00
parent 9f00e67298
commit e7e20277e4
12 changed files with 71 additions and 263 deletions
@@ -187,7 +187,8 @@ defaultImpulsive ::
    Creature ->
    World ->
    World
-defaultImpulsive = fmap (fmap updateRandGen) . stateUpdate . impulsiveAIBefore . chainCreatureUpdates
+defaultImpulsive fs cr = updateRandGen -- . stateUpdate (const id) cr
+    --fmap (fmap updateRandGen) . stateUpdate . impulsiveAIBefore . chainCreatureUpdates
  where
    updateRandGen w =
        let (_, g) = randomR (0, 1 :: Int) (_randGen w)