Fix wall bug, refactor placements

src/Dodge/LightSources/Fitting.hs

@@ -3,6 +3,7 @@ module Dodge.LightSources.Fitting
 import Dodge.LightSources.Lamp
 import Dodge.LevelGen.Data
 import Dodge.Room.Foreground
+import Dodge.Placement
 import Geometry
 
 wallMount :: Point2 -> Point3 -> Placement
@@ -66,9 +67,3 @@ wallMountV wallpos lamppos@(V3 x y z)
 
 extendAway :: Point2 -> Point2 -> Point2
 extendAway p x = p +.+ safeNormalizeV (p -.- x)
-
-jsps0 :: PSType -> Maybe Placement
-jsps0 pst = Just $ sPS (V2 0 0) 0 pst
-
-place0 :: PSType -> (Int -> Maybe Placement) -> Placement
-place0 pst = Placement (PS (V2 0 0) 0 pst)