Cleanup

2025-10-24 23:22:16 +01:00
parent b4012af312
commit 3f5f5d2c6b
12 changed files with 77 additions and 117 deletions
@@ -52,9 +52,7 @@ data PSType
        , _putEndPoint :: Point2
        }
    | PutWall {_pwPoly :: [Point2], _pwWall :: Wall}
--    | PutSlideDr Door Wall Float Point2 Point2
-    | PutDoor' Door Wall
--    | PutDoor WdBl Float Point2A Point2A
+    | PutDoor Door Wall
    | RandPS (State StdGen PSType)
    | PutForeground ForegroundShape
    | PutWorldUpdate (Int -> PlacementSpot -> GenWorld -> GenWorld)
@@ -79,9 +77,7 @@ instance ShortShow PSType where
    shortShow PutTrigger {} = "PutTrigger"
    shortShow PutLineBlock {} = "PutLineBlock"
    shortShow PutWall {} = "PutWall"
--    shortShow PutSlideDr {} = "PutSlideDr"
--    shortShow PutDoor {} = "PutDoor"
-    shortShow PutDoor' {} = "PutDoor'"
+    shortShow PutDoor {} = "PutDoor"
    shortShow RandPS {} = "RandPS"
    shortShow PutForeground {} = "PutForeground"
    shortShow PutWorldUpdate {} = "PutWorldUpdate"