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