aboutsummaryrefslogtreecommitdiff
path: root/bbcode
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2016-01-14 22:30:49 +0000
committerGregor Kleen <gkleen@yggdrasil.li>2016-01-14 22:30:49 +0000
commit97e3da41b1023ab6e98a3b67056732e8cb5ac260 (patch)
tree88666a8920ecf3730ad05160b9b4e354f89a9823 /bbcode
parent5b43a6abdca2366f507eefcebe77dc714598b149 (diff)
downloadthermoprint-97e3da41b1023ab6e98a3b67056732e8cb5ac260.tar
thermoprint-97e3da41b1023ab6e98a3b67056732e8cb5ac260.tar.gz
thermoprint-97e3da41b1023ab6e98a3b67056732e8cb5ac260.tar.bz2
thermoprint-97e3da41b1023ab6e98a3b67056732e8cb5ac260.tar.xz
thermoprint-97e3da41b1023ab6e98a3b67056732e8cb5ac260.zip
documentation grammar
Diffstat (limited to 'bbcode')
-rw-r--r--bbcode/src/Text/BBCode.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/bbcode/src/Text/BBCode.hs b/bbcode/src/Text/BBCode.hs
index 2e3a753..6fef446 100644
--- a/bbcode/src/Text/BBCode.hs
+++ b/bbcode/src/Text/BBCode.hs
@@ -64,7 +64,7 @@ bbcode :: Text -> Either BBCodeError [DomTree]
64bbcode t = fmap dom $ first LexerError (parseOnly (many token <* endOfInput) t) >>= first TreeError . rose 64bbcode t = fmap dom $ first LexerError (parseOnly (many token <* endOfInput) t) >>= first TreeError . rose
65 65
66-- | Errors in input encountered during parsing of lexed token-stream 66-- | Errors in input encountered during parsing of lexed token-stream
67data TreeError = MismatchedTags Text Text -- ^ Closing tags does not match opening tags 67data TreeError = MismatchedTags Text Text -- ^ Closing tags label does not match opening tags
68 | ImbalancedTags Text -- ^ We found an extraneous closing tag 68 | ImbalancedTags Text -- ^ We found an extraneous closing tag
69 deriving (Show, Eq, Generic, Typeable) 69 deriving (Show, Eq, Generic, Typeable)
70 70