Commit before changing links

2021-11-11 22:51:02 +00:00
parent 8c45a02e46
commit d63c2ac943
11 changed files with 40 additions and 33 deletions
@@ -55,7 +55,8 @@ posRms
    -> Seq (Tree RoomInt)
    -> IO (Maybe [Room])
 posRms _ _ [] Empty = return $ Just []
-posRms bounds (rtoadd,_) [] (Node (r,i) ts :<| tseq) = fmap (setLastLinkToUsed rtoadd:) <$> posRms bounds (r,i) ts tseq
+posRms bounds (rtoadd,_) [] (Node (r,i) ts :<| tseq) 
+    = fmap (setLastLinkToUsed 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)