Move GenWorld update of placements into product type

2022-03-16 09:39:07 +00:00
parent 5aeb04ba05
commit 2dc94b85da
8 changed files with 32 additions and 35 deletions
@@ -70,7 +70,7 @@ sensInsideDoor senseType outplid rm = rm
            <> thinHighBar 0 (V2 0 (-100)) (V2 20 (-100))
            <> barPP 1.5 (V3 20 (-1) 0) (V3 20 (-1) 80))
        , putTerminal messagef 
-            & plGenPL . plSpot .~ rprBoolShift isUnusedLnk (shiftInBy 10)
+            & plSpot .~ rprBoolShift isUnusedLnk (shiftInBy 10)
        ]
    & rmOutPmnt .~ [OutPlacement (sensAboveDoor senseType 10 (atFstLnkOutShiftInward 100)) outplid]
  where