Cleanup

src/Dodge/Update.hs

@@ -27,7 +27,6 @@ import Dodge.Flame
 import Dodge.Inventory
 import Dodge.Item.Location
 import Dodge.Laser.Update
-import Dodge.LightSource.Update
 import Dodge.LinearShockwave.Update
 import Dodge.ListDisplayParams
 import Dodge.Machine.Update
@@ -276,7 +275,6 @@ functionalUpdate u =
         . over uvWorld (updateIMl' (_linearShockwaves . _lWorld . _cWorld) updateLinearShockwave)
         . over uvWorld (updateIMl' (_props . _lWorld . _cWorld) updateProp)
         . over uvWorld (updateIMl' (_projectiles . _lWorld . _cWorld) updateProjectile)
---        . over uvWorld updateLightSources
         . over uvWorld updateClouds
         . over uvWorld updateGusts
         . over uvWorld (updateMIM (cWorld . lWorld . magnets) (doMagnetUpdate . _mgUpdate))
@@ -531,9 +529,6 @@ updateObjCatMaybes p f w = w' & cWorld . lWorld . p #~ catMaybes newxs
 updateDistortions :: World -> World
 updateDistortions = updateObjMapMaybe distortions updateDistortion
 
---updateLightSources :: World -> World
---updateLightSources = updateObjMapMaybe tempLightSources (\b -> updateTempLightSource (_tlsUpdate b) b)
-
 updateRadarBlips :: World -> World
 updateRadarBlips = updateObjMapMaybe radarBlips updateRadarBlip