diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-09-16 10:19:42 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-09-16 10:19:42 -0700 |
| commit | 9f89269941cc8b15612aaddd6ba44e9dac5293c1 (patch) | |
| tree | 14ec2adf2fc04de9c511f475c4705fd1fda4d575 /src/Text/Pandoc/Readers/RST.hs | |
| parent | fc31bf27f575a0ac04c155539a095eb07fc996cc (diff) | |
| parent | b981540f2eee0a43acca7e446e24f76148d528b7 (diff) | |
| download | pandoc-9f89269941cc8b15612aaddd6ba44e9dac5293c1.tar.gz | |
Merge pull request #596 from dlax/rst-fieldlists
improvements to rst reader for field lists
Diffstat (limited to 'src/Text/Pandoc/Readers/RST.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index bd5de161c..74653efcf 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -151,8 +151,8 @@ rawFieldListItem :: String -> Parser [Char] ParserState (String, String) rawFieldListItem indent = try $ do string indent char ':' - name <- many1 $ alphaNum <|> spaceChar - string ": " + name <- many1 $ noneOf ":" + char ':' skipSpaces first <- manyTill anyChar newline rest <- option "" $ try $ do lookAhead (string indent >> spaceChar) |