Fix low block drawing bug

src/Dodge/Placement/PlaceSpot.hs

@@ -131,11 +131,9 @@ placeSpotID rid ps pt w = case pt of
             fsID
             (mvFS p rot fs)
             w
-    --PutMachine pps mc wl mitm -> plMachine (map doShift pps) mc wl mitm p rot w
     PutMachine pps mc mitm -> plMachine (map doShift pps) mc mitm p rot w
     PutLS ls -> plNewUpID (gwWorld . cWorld . lWorld . lightSources) lsID (mvLS p' rot ls) 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
     PutDoor eo f l p1 p2 -> plDoor eo f l (pashift p1) (pashift p2)  w
     PutCoord cp -> plNewID (gwWorld . coordinates) (doShift cp) w
     PutSlideDr wl dr eo off a b ->
@@ -208,7 +206,6 @@ mvFS p a = (fsDir +~ a) . (fsPos %~ ((p +.+) . rotateV a))
 plMachine ::
     [Point2] ->
     Machine ->
---    Wall ->
     Maybe Item ->
     Point2 ->
     Float ->