Cleanup

src/Dodge/Room/SensorDoor.hs

@@ -21,8 +21,6 @@ import LensHelp
 import RandomHelp
 
 import qualified Data.Set as S
-import Data.Maybe
---import Data.Tree
 
 -- TODO fix case where the sensor created by sensInsideDoor blocks another door
 -- for roomRectAutoLinks-- make the locked door a center door?
@@ -60,11 +58,7 @@ sensorRoomRunPast dt n = do
 sensAboveDoor :: DamageType -> Float -> PlacementSpot -> Placement
 sensAboveDoor sensetype wth ps = extTrigLitPos 
     (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
-    ( \tp -> Just $ damageSensor sensetype 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
+    ( \tp -> Just $ damageSensor sensetype wth (_plMID tp) ps )
 
 sensInsideDoor :: DamageType -> Int -> Room -> Room
 sensInsideDoor senseType outplid rm = rm