From ebcd90b24ad86e734b78dba8c4f544ec4ae5782b Mon Sep 17 00:00:00 2001
From: claremacrae <github@cfmacrae.fastmail.co.uk>
Date: Mon, 19 Aug 2013 21:28:17 +0100
Subject: Fix some warnings in dokuwiki writer (#386)
---
src/Text/Pandoc/Writers/DokuWiki.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'src')
diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs
index 0f62e98c3..321e8f428 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -275,8 +275,8 @@ definitionListItemToDokuWiki opts (label, items) = do
isSimpleList :: Block -> Bool
isSimpleList x =
case x of
- BulletList items -> True
- OrderedList (num, sty, _) items -> True
+ BulletList _ -> True
+ OrderedList _ _ -> True
DefinitionList items -> all isSimpleListItem $ concatMap snd items
_ -> False
--
cgit v1.2.3