@@ -26,6 +26,7 @@ tokensToForest = f (PStack [] [])
26 TagOpen n _ -> if n `elem` nonClosing
26 TagOpen n _ -> if n `elem` nonClosing
27 then f (pushFlatSibling t pstack) ts
27 then f (pushFlatSibling t pstack) ts
28 else f (pushParent t pstack) ts
28 else f (pushParent t pstack) ts
29+ TagSelfClose {} -> f (pushFlatSibling t pstack) ts
29 TagClose n -> (`f` ts) =<< popParent n pstack
30 TagClose n -> (`f` ts) =<< popParent n pstack
30 ContentChar _ -> f (pushFlatSibling t pstack) ts
31 ContentChar _ -> f (pushFlatSibling t pstack) ts
31 ContentText _ -> f (pushFlatSibling t pstack) ts
32 ContentText _ -> f (pushFlatSibling t pstack) ts