From a5d285a8b74d2278e8549909d29c01b62dc84424 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 12 Jan 2016 05:07:27 +0000 Subject: Lexing tag attributes --- bbcode/src/Text/BBCode.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'bbcode/src/Text/BBCode.hs') 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) -- cgit v1.2.3