Cleanup, merge modules

src/Dodge/Placement/Instance/LightSource.hs

@@ -174,7 +174,7 @@ spanLSLightI ls h a b =
 
 spanLS :: LightSource -> Point2 -> Point2 -> Placement
 spanLS ls a b =
-    Placement 10 (PS (V2 x y) 0) (PutLS ls) Nothing $
+    Placement (PS (V2 x y) 0) (PutLS ls) Nothing $
         const $ const $ Just $ sps0 $ putShape $ thinHighBar h a b
   where
     V3 _ _ h = _lsPos (_lsParam ls) + 5