Work on placements/room generation

2025-08-22 13:42:51 +01:00
parent e7b52f4487
commit f641805845
14 changed files with 294 additions and 596 deletions
@@ -29,7 +29,11 @@ data GenWorld = GenWorld
 ---- ROOM DATATYPES
 data PSType
    = PutCrit {_unPutCrit :: Creature}
-    | PutMachine {_putMachinePoly :: [Point2], _putMachineMachine :: Machine, _putMachineWall :: Wall}
+    | PutMachine
+        { _putMachinePoly :: [Point2]
+        , _putMachineMachine :: Machine
+        , _putMachineWall :: Wall
+        }
    | PutLS LightSource
    | PutButton {_putButton :: Button}
    | PutProp Prop