Generalise link effects

src/Dodge/Room/SensorDoor.hs

@@ -42,9 +42,10 @@ sensorRoom senseType n = do
     rm <- takeOne [roomNgon 8 200, roomRectAutoLinks 200 200]
     cenroom <- shuffleLinks $ sensInsideDoor senseType n rm
     let doorroom = triggerDoorRoom n
-    return $ treeFromPost [PassDown door,PassDown $ cenroom & rmLinkEff .~ [f,f],PassDown doorroom] (UseAll door)
+    return $ treeFromPost [PassDown door,PassDown $ cenroom & rmLinkEff .~ f,PassDown doorroom] (UseAll door)
   where
-    f rl rm = rm & rmLinks %~ map (g (_rlPos rl) (_rlDir rl))
+    f _ _ 0 rl rm = rm & rmLinks %~ map (g (_rlPos rl) (_rlDir rl))
+    f _ _ _ _ rm = rm
     g p d rl
         | isclose = rl & rlType . at BlockedLink ?~ ()
         | otherwise = rl