Refactor light sources

src/Dodge/Update.hs

@@ -6,6 +6,7 @@ Description : Simulation update
 module Dodge.Update ( updateUniverse ) where
 import Dodge.Data
 import Dodge.Beam
+import Dodge.LightSource.Update
 import Dodge.Projectile.Update
 import Dodge.Creature.Update
 import Dodge.RadarSweep
@@ -209,7 +210,7 @@ updateDistortions = distortions %~ mapMaybe updateDistortion
 updateLightSources :: World -> World
 updateLightSources = tempLightSources %~ f
   where 
-    f = mapMaybe (\b -> _tlsUpdate b b)
+    f = mapMaybe (\b -> updateTempLightSource (_tlsUpdate b) b)
 
 updateRadarBlips :: World -> World
 updateRadarBlips = radarBlips %~ mapMaybe updateRadarBlip