Simplify machine placement

2025-10-23 22:34:50 +01:00
parent 3c6d269d00
commit cba0f36ac5
8 changed files with 306 additions and 314 deletions
@@ -36,7 +36,7 @@ putTerminalFull f col mc tm =
                            ( mc & mcMounts . at OTButton ?~ fromJust (_plMID btpl)
                                & mcMounts . at OTTerminal .~ _plMID tmpl
                            )
-                            defaultSensorWall
+--                            defaultMachineWall
                            Nothing
                        )
                        $ \mcpl -> Just $ pt0 (PutWorldUpdate $ const $ const $ over gwWorld  (setids tmpl btpl mcpl)) (\_ -> f tmpl btpl mcpl)