Commit before unifying light sources

2024-11-26 12:21:00 +00:00
parent e33fed2239
commit 851fdc2410
2 changed files with 2 additions and 0 deletions
@@ -135,6 +135,7 @@ data LWorld = LWorld
    , _corpses :: IM.IntMap Corpse
    , _lightSources :: IM.IntMap LightSource
    , _tempLightSources :: [TempLightSource]
+    , _lights :: [LSParam]
    , _seenLocations :: IM.IntMap (WdP2, String)
    , _selLocation :: Int
    , _distortions :: [Distortion]
@@ -136,6 +136,7 @@ defaultLWorld =
        , _corpses = IM.empty
        , _lightSources = IM.empty
        , _tempLightSources = []
+        , _lights = mempty
        , _seenLocations =
            IM.fromList
                [ (0, (WdYouPos, "CURRENT POSITION"))