diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-09-27 16:06:29 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-09-27 16:06:29 -0700 |
| commit | 35662e14a9fafcc7d4202cec75cac47b656bb53c (patch) | |
| tree | fdf7915f4dacd42f06db8b2ac39d20c9f7520351 /src | |
| parent | 731415a4e598adaac894865f72b935a742e569ec (diff) | |
Removed nullBlock.
Don't use nullBlock in Textile reader. Better to know about parsing
problems than to skip stuff when we get stuck.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 6 | ||||
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 2 |
2 files changed, 1 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index bf4519a4f..731375e38 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -48,7 +48,6 @@ module Text.Pandoc.Parsing ( (>>~), uri, withHorizDisplacement, withRaw, - nullBlock, escaped, characterReference, updateLastStrPos, @@ -418,11 +417,6 @@ withRaw parser = do ls -> unlines (init ls) ++ take (c2 - 1) (last ls) return (result, raw) --- | Parses a character and returns 'Null' (so that the parser can move on --- if it gets stuck). -nullBlock :: Parser [Char] st Block -nullBlock = anyChar >> return Null - -- | Parses backslash, then applies character parser. escaped :: Parser [Char] st Char -- ^ Parser for character to escape -> Parser [Char] st Char diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index dc95d9a56..49f20ba29 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -130,7 +130,7 @@ blockParsers = [ codeBlock , rawLaTeXBlock' , maybeExplicitBlock "table" table , maybeExplicitBlock "p" para - , nullBlock ] + ] -- | Any block in the order of definition of blockParsers block :: Parser [Char] ParserState Block |