Make autodoor placements use "ordinary" coordinate placements

src/Dodge/Placement/PlaceSpot.hs

@@ -121,11 +121,6 @@ placeSpotID' ps pt w = case pt of
                             & itLocation .~ OnFloor
                        )
             )
-    --        plNewUpID
-    --            (cWorld . lWorld . floorItems . unNIntMap)
-    --            (flItID . unNInt)
-    --            (createFlIt p rot itm)
-    --            w
     PutCrit cr -> plNewUpID (cWorld . lWorld . creatures) crID (mvCr p rot cr) w
     PutForeground fs -> plNewUpID (cWorld . lWorld . foregroundShapes) fsID (mvFS p rot fs) w
     PutMachine pps mc wl mitm -> plMachine (map doShift pps) mc wl mitm p rot w
@@ -133,7 +128,7 @@ placeSpotID' ps pt w = case pt of
     PutPPlate pp -> plNewUpID (cWorld . lWorld . pressPlates) ppID (mvPP p rot pp) w
     RandPS rgn -> evaluateRandPS rgn ps w
     PutDoor col eo f pss -> plDoor col eo f (map (bimap doShift doShift) pss) w
-    PutCoord cp -> plNewID (cWorld . lWorld . coordinates) (doShift cp) w
+    PutCoord cp -> plNewID coordinates (doShift cp) w
     PutSlideDr wl dr eo off a b ->
         plSlideDoor wl dr eo off (doShift a) (doShift b) w
     PutBlock bl wl ps' ->