From bc29f44d5970d87a7ed28d4008debae3e2cb724c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 15 Sep 2012 16:24:55 -0400
Subject: MediaWiki reader:  Allow def list item with just a term.

---
 src/Text/Pandoc/Readers/MediaWiki.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Readers')

diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs
index e65a4dc70..51fc845a3 100644
--- a/src/Text/Pandoc/Readers/MediaWiki.hs
+++ b/src/Text/Pandoc/Readers/MediaWiki.hs
@@ -367,7 +367,10 @@ definitionList = B.definitionList <$> many1 defListItem
 defListItem :: MWParser (Inlines, [Blocks])
 defListItem = try $ do
   terms <- mconcat . intersperse B.linebreak <$> many defListTerm
-  defs  <- many1 $ listItem ':'
+  -- we allow dd with no dt, or dt with no dd
+  defs  <- if B.isNull terms
+              then many1 $ listItem ':'
+              else many $ listItem ':'
   return (terms, defs)
 
 defListTerm  :: MWParser Inlines
-- 
cgit v1.2.3