Fix reloading crash

2022-12-29 01:37:03 +00:00
parent 7fc3b788b4
commit bdd022e40b
4 changed files with 56 additions and 37 deletions
@@ -65,8 +65,7 @@ import qualified IntMapHelp as IM
 import LensHelp
 import SDL
 import Sound.Data
-
--import StrictHelp
+import StrictHelp

 updateUniverse :: Universe -> Universe
 updateUniverse u =
@@ -336,8 +335,8 @@ advanceScrollAmount u =
        & uvWorld . input . scrollAmount .~ 0

 updatePastWorlds :: CWorld -> CWorld
--updatePastWorlds w = w & pastWorlds %~ (forceFoldable . take 100 . ((w ^. lWorld) :))
-updatePastWorlds w = w & pastWorlds .~ []
+updatePastWorlds w = w & pastWorlds %~ (forceFoldable . take 100 . ((w ^. lWorld) :))
+--updatePastWorlds w = w & pastWorlds .~ []

 moveHammersUp :: Universe -> Universe
 --moveHammersUp = uvWorld . hammers .~ M.empty