Refactor light sources

src/Dodge/Item/Weapon/TriggerType.hs

@@ -45,6 +45,7 @@ import Dodge.Default
 import Sound.Data
 import Geometry
 import Geometry.Vector3D
+import Dodge.LightSource
 --import Data.Preload
 
 import System.Random
@@ -293,12 +294,7 @@ withTempLight :: Int -> Float -> V3 Float -> ChainEffect
 withTempLight time rad col eff item cr = eff item cr 
     . over tempLightSources (theTLS :)
   where
-    theTLS = defaultTLS
-        { _tlsPos = V3 x y 10
-        , _tlsRad=rad
-        , _tlsIntensity = col
-        , _tlsTime = time
-        }
+    theTLS = tlsTimeRadColPos time rad col (V3 x y 10)
     V2 x y = _crPos cr +.+ 15 *.* unitVectorAtAngle (_crDir cr)
 
 modClock :: Int -> ChainEffect -> ChainEffect