Add light fittings

src/Dodge/Room/LongDoor.hs

@@ -15,7 +15,7 @@ import Dodge.LevelGen.Switch
 import Dodge.RandomHelp
 import Dodge.Creature.Inanimate
 import Dodge.Creature
-import Dodge.LightSources
+import Dodge.LightSources.Lamp
 import Picture
 import Geometry
 
@@ -56,9 +56,9 @@ twinSlowDoorRoom drid w h x = defaultRoom
     , _rmName   = "twinSlowDoorRoom"
     }
   where
-    addColorChange lsid drid = over pjUpdate $ chain $ const f
+    addColorChange lsid drid' = over pjUpdate $ chain $ const f
       where
-        f w' | _drStatus (_doors w' IM.! drid) == DoorHalfway 
+        f w' | _drStatus (_doors w' IM.! drid') == DoorHalfway 
                 = w' & lightSources . ix lsid . lsIntensity .~ V3 8 0 0
              | otherwise = w' & lightSources . ix lsid . lsIntensity .~ 0.7
     drmoving i w' = DoorHalfway == _drStatus (_doors w' IM.! i)