Reorganisation of light source placements and fittings

src/Dodge/Base.hs

@@ -520,3 +520,8 @@ evenOddSplit = foldr f ([],[])
 dbArg :: (a -> a -> b) -> a -> b
 {-# INLINE dbArg #-}
 dbArg f x = f x x
+
+-- TODO check whether this is simply the reader monad, flipped
+dbArgChain :: (a -> b -> b) -> (a -> b -> b) -> a -> b -> b
+dbArgChain f g x = f x . g x
+