diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-09-12 17:29:51 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-09-12 17:30:02 -0700 |
| commit | 57ec347c42f2f5095a6671d1eab564fed0291512 (patch) | |
| tree | 1709e3771e8da9ef75674a3211e01a6146158743 /src/Text/Pandoc/Readers/MediaWiki.hs | |
| parent | 4e294333b0ddca9d2ee6de408239de4ccf8eb637 (diff) | |
| download | pandoc-57ec347c42f2f5095a6671d1eab564fed0291512.tar.gz | |
MediaWiki reader: Handle def lists without terms (: lines).
Diffstat (limited to 'src/Text/Pandoc/Readers/MediaWiki.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index cfc991872..6807b470e 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -193,7 +193,7 @@ definitionList = B.definitionList <$> many1 defListItem defListItem :: MWParser (Inlines, [Blocks]) defListItem = try $ do - terms <- mconcat . intersperse B.linebreak <$> many1 defListTerm + terms <- mconcat . intersperse B.linebreak <$> many defListTerm defs <- many1 $ listItem ':' return (terms, defs) @@ -210,6 +210,7 @@ listStartChar = oneOf "*#;:" anyListStart :: MWParser () anyListStart = skipMany1 (char '*') <|> skipMany1 (char '#') + <|> skipMany1 (char ':') <|> (() <$ char ';') listItem :: Char -> MWParser Blocks |