Cleanup

2022-07-16 18:07:43 +01:00
parent 11732358ed
commit 22adcb89e0
7 changed files with 31 additions and 34 deletions
@@ -202,9 +202,9 @@ updateDistortions :: World -> World
 updateDistortions = distortions %~ mapMaybe updateDistortion

 updateLightSources :: World -> World
-updateLightSources w = over tempLightSources f w
+updateLightSources = tempLightSources %~ f
  where 
-    f = mapMaybe (\b -> _tlsUpdate b w b)
+    f = mapMaybe (\b -> _tlsUpdate b b)

 updateRadarBlips :: World -> World
 updateRadarBlips = radarBlips %~ mapMaybe updateRadarBlip