diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index f64c9e416..c2b92b75b 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -106,6 +106,7 @@ blockParsers :: [GenParser Char ParserState Block] blockParsers = [ codeBlock , header , blockQuote + , hrule , anyList , rawHtmlBlock' , maybeExplicitBlock "table" table @@ -151,6 +152,18 @@ blockQuote = try $ do whitespace para >>= return . BlockQuote . (:[]) +-- Horizontal rule + +hrule :: GenParser Char st Block +hrule = try $ do + skipSpaces + start <- oneOf "-*" + count 2 (skipSpaces >> char start) + skipMany (spaceChar <|> char start) + newline + optional blanklines + return HorizontalRule + -- Lists handling -- | Can be a bullet list or an ordered list. This implementation is |