aboutsummaryrefslogtreecommitdiff
path: root/bbcode/src/Text/BBCode.hs
diff options
context:
space:
mode:
Diffstat (limited to 'bbcode/src/Text/BBCode.hs')
-rw-r--r--bbcode/src/Text/BBCode.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/bbcode/src/Text/BBCode.hs b/bbcode/src/Text/BBCode.hs
index d0c9974..f2a9570 100644
--- a/bbcode/src/Text/BBCode.hs
+++ b/bbcode/src/Text/BBCode.hs
@@ -25,7 +25,7 @@ import Data.Function (on)
25import Control.Applicative 25import Control.Applicative
26 26
27import Text.BBCode.Lexer (BBToken(..), token) 27import Text.BBCode.Lexer (BBToken(..), token)
28import Data.Attoparsec.Text (parseOnly, endOfInput) 28import Data.Attoparsec.Text (parseOnly, endOfInput, endOfLine)
29 29
30import Data.Tree 30import Data.Tree
31import Data.Tree.Zipper (TreePos, Empty, Full) 31import Data.Tree.Zipper (TreePos, Empty, Full)
@@ -72,7 +72,7 @@ instance Exception BBCodeError
72 72
73bbcode :: Text -> Either BBCodeError DomForest 73bbcode :: Text -> Either BBCodeError DomForest
74-- ^ Parse BBCode 74-- ^ Parse BBCode
75bbcode t = fmap dom $ first LexerError (parseOnly (many token <* endOfInput) t) >>= first TreeError . rose 75bbcode t = fmap dom $ first LexerError (parseOnly (many token <* many endOfLine <* endOfInput) t) >>= first TreeError . rose
76 76
77-- | Errors in input encountered during parsing of lexed token-stream 77-- | Errors in input encountered during parsing of lexed token-stream
78data TreeError = MismatchedTags Text Text -- ^ Closing tags label does not match opening tags 78data TreeError = MismatchedTags Text Text -- ^ Closing tags label does not match opening tags