Simplify machine placement

src/Dodge/Placement/Instance/Sensor.hs

@@ -29,7 +29,7 @@ damageSensor dt wdth mtrid ps = pContID ps (PutLS $ lsPosCol (V3 0 0 30) 0.1) $
                                 (damageTypeThreshold dt)
                             )
                 )
-                defaultSensorWall
+--                defaultMachineWall
                 Nothing
 
 damageTypeThreshold :: SensorType -> Int

src/Dodge/Placement/Instance/Terminal.hs

@@ -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)

src/Dodge/Placement/Instance/Turret.hs

@@ -18,7 +18,6 @@ putTurret itm rotSpeed =
                 & mcType .~ (turret itm & _McTurret . tuTurnSpeed .~ rotSpeed)
                 & mcHP .~ 50000
             )
-            defaultMachineWall
             (Just itm)
 
 putLasTurret :: Float -> Placement
@@ -31,7 +30,6 @@ putLasTurret rotSpeed =
                 & mcType .~ (lasTurret & _McTurret . tuTurnSpeed .~ rotSpeed)
                 & mcHP .~ 50000
             )
-            defaultMachineWall
             (Just laser)
 
 turret :: Item -> MachineType