Cleanup

2025-10-03 20:14:41 +01:00
parent 2d44809900
commit cba3ca784a
13 changed files with 181 additions and 193 deletions
@@ -49,7 +49,8 @@ posRms ::
    IO (Maybe PosRooms)
 posRms prs roomi [] st = case st of
    Empty -> return $ Just $ prs & prRooms .:~ roomi
-    Node nextroomi ts Seq.:<| tseq -> posRms (prs & prRooms .:~ roomi) nextroomi (zipCount ts) tseq
+    Node nextroomi ts Seq.:<| tseq 
+        -> posRms (prs & prRooms .:~ roomi) nextroomi (zipCount ts) tseq
    _ -> error "unexpected outcome in posRms"
 posRms prs parenti@(parent, _) ((numChild, t@(Node childi _)) : its) tseq = do
    printInfoCheckNum parenti numChild childi