From 57ec347c42f2f5095a6671d1eab564fed0291512 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 12 Sep 2012 17:29:51 -0700 Subject: MediaWiki reader: Handle def lists without terms (: lines). --- src/Text/Pandoc/Readers/MediaWiki.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3