Cleanup

2025-09-23 21:02:27 +01:00
parent 398b3a1342
commit 87f1444f5c
6 changed files with 8 additions and 7 deletions
@@ -120,7 +120,7 @@ addButtonSlowDoor x h rm = do
            (aShape (V2 15 0) (V3 15 xoff 90))
        $ \plls plpr ->
            Just $
-                ptCont (PutWorldUpdate (const $ over gwWorld $ setmount dr plls plpr)) $
+                ptCont (PutWorldUpdate (const $ const $ over gwWorld $ setmount dr plls plpr)) $
                    const mpl
    setmount pldr plls plpr =
        cWorld . lWorld . doors . ix (fromJust $ _plMID pldr) . drMounts