Cleanup

src/Dodge/Default/World.hs

@@ -43,6 +43,7 @@ defaultWorld = World
     , _walls = IM.empty
     , _blocks = IM.empty
     , _machines = IM.empty
+    , _terminals = IM.empty
     , _doors = IM.empty
     , _coordinates  = IM.empty
     , _triggers     = IM.empty
@@ -99,14 +100,14 @@ defaultWorld = World
     , _backspaceTimer = 0
     }
 youLight :: TempLightSource
-youLight = 
-    TLS { _tlsParam = LSParam
-            {_lsPos = V3 0 0 0
-            ,_lsRad = 300
-            ,_lsCol = 0.1
-            }
-        ,_tlsUpdate = \w _ -> Just (youLight & tlsParam . lsPos .~ f (_crPos $ you w))
-        ,_tlsTime = 0
+youLight = TLS 
+    { _tlsParam = LSParam
+        {_lsPos = V3 0 0 0
+        ,_lsRad = 300
+        ,_lsCol = 0.1
         }
+    ,_tlsUpdate = \w _ -> Just (youLight & tlsParam . lsPos .~ f (_crPos $ you w))
+    ,_tlsTime = 0
+    }
   where
     f (V2 x y) = V3 x y 100