Cleanup, fix menu lock on restarting level after game over

src/Dodge/LightSource.hs

@@ -9,13 +9,13 @@ module Dodge.LightSource
     , lsPosCol
     , lsPosRad
     , lsColPosID
+    , makeTlsTimeRadColPos 
     )
     where
 import Dodge.Data
 import Geometry.Data
 import Dodge.Default
-
-import Control.Lens
+import LensHelp
 
 lsPosRad :: Point3 -> Float -> LightSource
 lsPosRad = lsColPosRad 0.75
@@ -83,3 +83,6 @@ tlsTimeRadColPos t rmax col (V3 x y z) = TLS
         | _tlsTime tls <= 0 = Nothing
         | otherwise         = Just $ tls    
             & tlsTime -~ 1
+
+makeTlsTimeRadColPos :: Int -> Float -> Point3 -> Point3 -> World -> World
+makeTlsTimeRadColPos i rad (V3 r g b) p = tempLightSources .:~ tlsTimeRadColPos i rad (V3 r g b) p