git.iko.soy/typeable/pandoc
on master help sign in
MediaWiki reader: Handle def lists without terms (: lines).
commit57ec347c42f2f5095a6671d1eab564fed0291512 authorJohn MacFarlane <jgm@berkeley.edu> dateWed 12 Sep 2012, 17:29 (14 years ago) parent4e29433
1 file changed+2−1
src/Text/Pandoc/Readers/MediaWiki.hs+2−1
src/Text/Pandoc/Readers/MediaWiki.hs+2−1
@@ -193,7 +193,7 @@ definitionList = B.definitionList <$> many1 defListItem
193193
194194defListItem :: MWParser (Inlines, [Blocks])
195195defListItem = try $ do
196− terms <- mconcat . intersperse B.linebreak <$> many1 defListTerm
196+ terms <- mconcat . intersperse B.linebreak <$> many defListTerm
197197 defs <- many1 $ listItem ':'
198198 return (terms, defs)
199199
@@ -210,6 +210,7 @@ listStartChar = oneOf "*#;:"
210210anyListStart :: MWParser ()
211211anyListStart = skipMany1 (char '*')
212212 <|> skipMany1 (char '#')
213+ <|> skipMany1 (char ':')
213214 <|> (() <$ char ';')
214215
215216listItem :: Char -> MWParser Blocks