Commit before unifying light sources

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