Allow for placements to use/update the full GenWorld

2025-09-23 10:41:09 +01:00
parent 5ee78ceffc
commit a9ecd7de2e
6 changed files with 65 additions and 64 deletions
@@ -56,7 +56,7 @@ data PSType
    | PutDoor Color EdgeObstacle WdBl [(Point2, Point2)]
    | RandPS (State StdGen PSType)
    | PutForeground ForegroundShape
-    | PutWorldUpdate (PlacementSpot -> World -> World)
+    | PutWorldUpdate (PlacementSpot -> GenWorld -> GenWorld)
    | PutNothing
    | PutID {_putID :: Int}
    | PutChasm {_putChasmPoly :: [Point2]}