1 files changed, 1 insertions, 1 deletions
diff --git a/bbcode/src/Text/BBCode.hs b/bbcode/src/Text/BBCode.hs
index dfa1db7..a6de7b4 100644
--- a/bbcode/src/Text/BBCode.hs
+++ b/bbcode/src/Text/BBCode.hs
@@ -42,7 +42,7 @@ rose = fmap Z.toForest . flip rose' (Z.fromForest [])
    rose' (x:xs) = (>>= rose' xs) . rose'' x
    rose'' (BBStr t) = return . Z.nextSpace . Z.insert (Node t [])
-    rose'' (BBOpen t) = return . Z.children . Z.insert (Node t [])
+    rose'' (BBOpen t _) = return . Z.children . Z.insert (Node t [])
    rose'' (BBClose t) = close t -- for more pointless
    close :: Text -> TreePos Empty Text -> Either TreeError (TreePos Empty Text)

diff --git a/bbcode/src/Text/BBCode.hs b/bbcode/src/Text/BBCode.hs index dfa1db7..a6de7b4 100644 --- a/bbcode/src/Text/BBCode.hs +++ b/bbcode/src/Text/BBCode.hs
@@ -42,7 +42,7 @@ rose = fmap Z.toForest . flip rose' (Z.fromForest [])
42	rose' (x:xs) = (>>= rose' xs) . rose'' x	42	rose' (x:xs) = (>>= rose' xs) . rose'' x
43		43
44	rose'' (BBStr t) = return . Z.nextSpace . Z.insert (Node t [])	44	rose'' (BBStr t) = return . Z.nextSpace . Z.insert (Node t [])
45	rose'' (BBOpen t) = return . Z.children . Z.insert (Node t [])	45	rose'' (BBOpen t _) = return . Z.children . Z.insert (Node t [])
46	rose'' (BBClose t) = close t -- for more pointless	46	rose'' (BBClose t) = close t -- for more pointless
47		47
48	close :: Text -> TreePos Empty Text -> Either TreeError (TreePos Empty Text)	48	close :: Text -> TreePos Empty Text -> Either TreeError (TreePos Empty Text)