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
@@ -120,7 +120,7 @@ addButtonSlowDoor x h rm = do
            (aShape (V2 15 0) (V3 15 xoff 90))
        $ \plls plpr ->
            Just $
-                ptCont (PutWorldUpdate (const $ setmount dr plls plpr)) $
+                ptCont (PutWorldUpdate (const $ over gwWorld $ setmount dr plls plpr)) $
                    const mpl
    setmount pldr plls plpr =
        cWorld . lWorld . doors . ix (fromJust $ _plMID pldr) . drMounts