From cdefeb9445afc7e8ea42e9ff0fdc69cfc8060c1d Mon Sep 17 00:00:00 2001 From: Denis Laxalde Date: Wed, 29 Aug 2012 18:54:57 +0200 Subject: Fix RST reader for field lists items with body beginning after a new line --- src/Text/Pandoc/Readers/RST.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 9fb976903..af1789be7 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -152,7 +152,7 @@ rawFieldListItem indent = try $ do string indent char ':' name <- many1 $ alphaNum <|> spaceChar - string ": " + char ':' skipSpaces first <- manyTill anyChar newline rest <- option "" $ try $ do lookAhead (string indent >> spaceChar) -- cgit v1.2.3 From b981540f2eee0a43acca7e446e24f76148d528b7 Mon Sep 17 00:00:00 2001 From: Denis Laxalde Date: Wed, 29 Aug 2012 20:35:19 +0200 Subject: Allow any char but ':' in names of field lists in RST reader --- src/Text/Pandoc/Readers/RST.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index af1789be7..a26b1623d 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -151,7 +151,7 @@ rawFieldListItem :: String -> Parser [Char] ParserState (String, String) rawFieldListItem indent = try $ do string indent char ':' - name <- many1 $ alphaNum <|> spaceChar + name <- many1 $ noneOf ":" char ':' skipSpaces first <- manyTill anyChar newline -- cgit v1.2.3