Move towards unifying door movement

src/Dodge/Placement/PlaceSpot.hs

@@ -39,7 +39,7 @@ placeSpot rid w plmnt = case plmnt of
   where
     shift = _rmShift $ w ^?! genRooms . ix rid
 
-placePlainPSSpot :: GenWorld -> Int -> Placement -> DPoint2 -> GenWorld
+placePlainPSSpot :: GenWorld -> Int -> Placement -> Point2A -> GenWorld
 placePlainPSSpot w rid plmnt shift = case plmnt ^. plType of
     RandPS rgn ->
         let (x, g) = runState rgn (w ^. gwWorld . randGen)
@@ -89,7 +89,7 @@ placeSpotUsingLink w rid plmnt extract eff fallback =
 placeSpotRoomRand ::
     Int ->
     Int ->
-    (DPoint2 -> PlacementSpot) ->
+    (Point2A -> PlacementSpot) ->
     Placement ->
     GenWorld ->
     GenWorld