Unify PutDoor PSType

src/Dodge/Data/GenWorld.hs

@@ -52,9 +52,9 @@ data PSType
         , _putEndPoint :: Point2
         }
     | PutWall {_pwPoly :: [Point2], _pwWall :: Wall}
-    | PutSlideDr Door Wall Float Point2 Point2
+--    | PutSlideDr Door Wall Float Point2 Point2
     | PutDoor' Door Wall
-    | PutDoor WdBl Float Point2A Point2A
+--    | PutDoor WdBl Float Point2A Point2A
     | RandPS (State StdGen PSType)
     | PutForeground ForegroundShape
     | PutWorldUpdate (Int -> PlacementSpot -> GenWorld -> GenWorld)
@@ -79,8 +79,8 @@ instance ShortShow PSType where
     shortShow PutTrigger {} = "PutTrigger"
     shortShow PutLineBlock {} = "PutLineBlock"
     shortShow PutWall {} = "PutWall"
-    shortShow PutSlideDr {} = "PutSlideDr"
-    shortShow PutDoor {} = "PutDoor"
+--    shortShow PutSlideDr {} = "PutSlideDr"
+--    shortShow PutDoor {} = "PutDoor"
     shortShow PutDoor' {} = "PutDoor'"
     shortShow RandPS {} = "RandPS"
     shortShow PutForeground {} = "PutForeground"