Move machine update into outside function

src/Dodge/Room/LasTurret.hs

@@ -21,7 +21,7 @@ import LensHelp
 import RandomHelp
 
 import qualified Data.Set as S
-import Data.Maybe
+--import Data.Maybe
 
 cenLasTur :: Room
 cenLasTur = roomNgon 8 200 & rmPmnts .~
@@ -44,7 +44,8 @@ lightSensInsideDoor outplid rm = rm
 lasSensLightAboveDoor :: Float -> PlacementSpot -> Placement
 lasSensLightAboveDoor wth ps = extTrigLitPos 
     (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
-    ( \tp -> Just $ lightSensor wth (upf $ fromJust $ _plMID tp) ps )
+    ( \tp -> Just $ lightSensor wth (_plMID tp) --(upf $ fromJust $ _plMID tp) 
+        ps )
   where
     upf trid mc w | _sensAmount (_mcSensor mc) > 900 = w & triggers . ix trid .~ const True
         | otherwise = w