From 9f58557a76b5ae5478a7b7fc9e83266cd215c448 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 12 Jan 2016 10:20:51 +0100 Subject: Selfclosing tags --- bbcode/src/Text/BBCode.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'bbcode/src/Text/BBCode.hs') diff --git a/bbcode/src/Text/BBCode.hs b/bbcode/src/Text/BBCode.hs index 30b1da8..32f74df 100644 --- a/bbcode/src/Text/BBCode.hs +++ b/bbcode/src/Text/BBCode.hs @@ -88,6 +88,7 @@ rose = fmap Z.toForest . flip rose' (Z.fromForest []) rose'' (BBStr t) = return . Z.nextSpace . Z.insert (Node (BBPlain t) []) rose'' (BBOpen t attrs) = return . Z.children . Z.insert (Node (BBTag t $ Map.fromList attrs) []) + rose'' (BBContained t attrs) = return . Z.nextSpace . Z.insert (Node (BBTag t $ Map.fromList attrs) []) rose'' (BBClose t) = close t -- for more pointless close :: Text -> TreePos Empty BBLabel -> Either TreeError (TreePos Empty BBLabel) -- cgit v1.2.3