Make machines have footprint like doors

2026-03-31 20:29:30 +01:00
parent dea4c0dffe
commit 5701261ace
12 changed files with 137 additions and 138 deletions
@@ -32,8 +32,7 @@ data GenWorld = GenWorld
 data PSType
    = PutCrit {_unPutCrit :: Creature}
    | PutMachine
-        { _putMachinePoly :: [Point2]
-        , _putMachineMachine :: Machine
+        { _putMachineMachine :: Machine
        , _putMachineMaybeItem :: Maybe Item
        }
    | PutLS {_putLS :: LightSource}