Make pathedge zoning use sets, probably doesn't help

2022-08-24 14:01:39 +01:00
parent 13b07b53ce
commit 6973663055
16 changed files with 68 additions and 53 deletions
@@ -188,11 +188,7 @@ defaultImpulsive ::
    World ->
    World
 defaultImpulsive
-    --xs cr = id
-    -- updateRandGen -- . stateUpdate (const id) cr
    = fmap (fmap updateRandGen) . stateUpdate . impulsiveAIBefore . chainCreatureUpdates
-    --xs cr = updateRandGen . stateUpdate (const id) cr
-    --xs cr = stateUpdate (const id) cr
  where
    updateRandGen w =
        let (_, g) = randomR (0, 1 :: Int) (_randGen w)