1 files changed, 1 insertions, 0 deletions
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)

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 [])
88		88
89	rose'' (BBStr t) = return . Z.nextSpace . Z.insert (Node (BBPlain t) [])	89	rose'' (BBStr t) = return . Z.nextSpace . Z.insert (Node (BBPlain t) [])
90	rose'' (BBOpen t attrs) = return . Z.children . Z.insert (Node (BBTag t $ Map.fromList attrs) [])	90	rose'' (BBOpen t attrs) = return . Z.children . Z.insert (Node (BBTag t $ Map.fromList attrs) [])
		91	rose'' (BBContained t attrs) = return . Z.nextSpace . Z.insert (Node (BBTag t $ Map.fromList attrs) [])
91	rose'' (BBClose t) = close t -- for more pointless	92	rose'' (BBClose t) = close t -- for more pointless
92		93
93	close :: Text -> TreePos Empty BBLabel -> Either TreeError (TreePos Empty BBLabel)	94	close :: Text -> TreePos Empty BBLabel -> Either TreeError (TreePos Empty BBLabel)