Work towards using room positions rather than room links in placements

2021-11-14 10:13:56 +00:00
parent 52946f33a7
commit affdde0f21
7 changed files with 28 additions and 16 deletions
@@ -29,7 +29,7 @@ posRms
    -> IO (Maybe [Room])
 posRms _ _ [] Empty = return $ Just []
 posRms bounds (rtoadd,_) [] (Node (r,i) ts :<| tseq) 
-    = fmap (setLastLinkToUsed rtoadd:) <$> posRms bounds (r,i) ts tseq
+    = fmap (finalLinksUpdate rtoadd:) <$> posRms bounds (r,i) ts tseq
 posRms bounds (r,i) (t@(Node (_,i') _):ts) tseq = do
    putStr $ "Trying to place room " ++ show i' ++ ": "
    tryLinks (0::Int) (_rmLinks r)