Refactor light sources

src/Dodge/Room/RunPast.hs

@@ -1,5 +1,6 @@
 module Dodge.Room.RunPast where
 import Dodge.LevelGen.Data
+import Dodge.LightSource
 import Dodge.RoomLink
 import Dodge.Data
 import Dodge.Default
@@ -40,11 +41,7 @@ roomCritLS = do
     col <- takeOne [0.5, 0.6]
     h   <- takeOne [30,35]
     rad <- takeOne [300]
-    return defaultLS
-        { _lsPos = V3 0 0 h
-        , _lsIntensity = col
-        , _lsRad = rad
-        }
+    return $ lsPosColRad (V3 0 0 h) col rad
 
 critRoom :: Room
 critRoom = corridorWallN