Cleanup

2023-05-01 22:35:33 +01:00
parent 7b8b8750a9
commit 61f88aeb4a
9 changed files with 120 additions and 121 deletions
@@ -227,7 +227,6 @@ scrollTimeForward w = case w ^? timeFlow . futureWorlds . _head of
        i <- w ^? timeFlow . scrollItemLocation
        return $ pointerToItemLocation (w ^?! cWorld . lWorld . itemLocations . ix i) . itUse . leftConsumption . wpCharge .~ ramount

-
 -- | The update step.
 functionalUpdate :: Universe -> Universe
 functionalUpdate w =
@@ -271,7 +270,7 @@ functionalUpdate w =
        . over uvWorld updateCreatureGroups
        . over uvWorld updateWallDamages
        . over uvWorld updateSeenWalls
-        . over uvWorld updateTerminal
+        . over uvWorld checkTermDist
        . over uvWorld updateRBList
        . over uvWorld updateCloseObjects
        . over uvWorld updateWheelEvents