Add explicit door position field

src/Dodge/Tree/Shift.hs

@@ -14,7 +14,7 @@ import Padding
 import LensHelp hiding (Empty, (<|) , (|>))
 --import Control.Lens hiding (Empty, (<|) , (|>))
 
-import qualified Data.Set as S
+--import qualified Data.Set as S
 import Data.Tree
 import Data.Sequence hiding (zipWith)
 import Data.List (delete)
@@ -43,7 +43,7 @@ posRms bounds parenti@(parent,_) ( (numChild,t@(Node childi _) ):its) tseq = do
   where
     child = fst childi
     outlinks = zipCount
-        . Prelude.filter (not . S.null . S.intersection (_rmConnectsTo child) . _rlType) 
+        . Prelude.filter (_rmConnectsTo child . _rlType) 
         $ _rmLinks parent
     tryParentLinks [] = putStrLn "no viable link pairs, backtrack" >> return Nothing
     tryParentLinks ((j,outlnk):ls) = tryChildLinks . zipCount . rmInLinks $ fst childi