Generalise link effects

src/Dodge/Tree/Shift.hs

@@ -78,7 +78,7 @@ posRms prs parenti@(parent,_) ( (numChild,t@(Node childi _) ):its) tseq = do
           where
             newBounds = map pointsToPoly . _rmBound . doRoomShift . fst $ rootLabel shiftedt
             clipping = or (convexPolysOverlap <$> newBounds <*> _prBounds prs)
-            updateparent rm = doLnkEff outlnk $ rm 
+            updateparent rm = _rmLinkEff rm il child numChild outlnk rm 
                 & rmLinks    %~ delete outlnk 
                 & rmPos      .:~ RoomPos
                     { _rpPos = fst (lnkPosDir outlnk)
@@ -151,7 +151,7 @@ printInfoCheckNum (parentrm,parenti) childn (childrm,childi) = printPartialColum
         0 -> _rmName parentrm ++ "-" ++ show parenti
         _ -> ""
 
-doLnkEff :: RoomLink -> Room -> Room
-doLnkEff x rm = case _rmLinkEff rm of
-    (eff:effs) -> eff x $ rm & rmLinkEff .~ effs
-    _ -> rm
+--doLnkEff :: RoomLink -> Room -> Room
+--doLnkEff x rm = case _rmLinkEff rm of
+--    (eff:effs) -> eff x $ rm & rmLinkEff .~ effs
+--    _ -> rm