Reorganisation of light source placements and fittings

src/Dodge/Room/LongDoor.hs

@@ -1,9 +1,9 @@
 --{-# LANGUAGE TupleSections #-}
 {- | Rooms containing long doors, probably with a big reveal behind them.
  -}
-module Dodge.Room.LongDoor
-    where
+module Dodge.Room.LongDoor where
 import Dodge.Data
+import Dodge.Base
 import Dodge.Default.Room
 import Dodge.LevelGen.Data
 import Dodge.Placement.Instance
@@ -51,7 +51,7 @@ twinSlowDoorRoom w h x = defaultRoom
     }
   where
     wlSpeed = 0.5
-    addColorChange lsid drid' = over pjUpdate $ chain $ const f
+    addColorChange lsid drid' = over pjUpdate $ dbArgChain $ const f
       where
         f w' | _drStatus (_doors w' IM.! drid') == DoorHalfway 
                 = w' & lightSources . ix lsid . lsIntensity .~ V3 8 0 0