Function for adding random lights to roomNGon

2026-03-19 11:40:49 +00:00
parent d1c2870d63
commit 508b848204
20 changed files with 453 additions and 336 deletions
@@ -52,7 +52,7 @@ decontamRoom i =
               ]
        --        & rmOutPmnt . at i ?~
        --               analyser (NoItemZone ps) (PS 50 0) (PS mcpos 0)
-        & rmInPmnt .~ [(0, f)]
+        & rmInPmnt .~ [(0, return . f)]
        & rmBound .~ [rectNSWE 75 15 0 40, switchcut]
  where
    f gw = fromMaybe (error "tried to put a door using an empty placement list") $ do