Cleanup

src/Dodge/Placement/PlaceSpot.hs

@@ -132,8 +132,6 @@ placeSpotID rid ps pt w = case pt of
             w
     PutMachine pps mc wl mitm -> plMachine (map doShift pps) mc wl mitm p rot w
     PutLS ls -> plNewUpID (gwWorld . cWorld . lWorld . lightSources) lsID (mvLS p' rot ls) w
-    PutPPlate pp ->
-        plNewUpID (gwWorld . cWorld . lWorld . pressPlates) ppID (mvPP p rot pp) w
     RandPS _ -> error "RandPS should not be reachable here" --evaluateRandPS rid rgn ps w
     PutDoor col eo f pss -> plDoor col eo f (map (bimap doShift doShift) pss) w
     PutCoord cp -> plNewID (gwWorld . coordinates) (doShift cp) w
@@ -188,9 +186,6 @@ mvProp p a = (prRot +~ a) . (prPos %~ ((p +.+) . rotateV a))
 mvButton :: Point2 -> Float -> Button -> Button
 mvButton p a = (btRot +~ a) . (btPos %~ ((p +.+) . rotateV a))
 
-mvPP :: Point2 -> Float -> PressPlate -> PressPlate
-mvPP p rot pp = pp & ppPos .~ p & ppRot .~ rot
-
 mvCr :: Point2 -> Float -> Creature -> Creature
 mvCr p rot cr =
     cr