@@ -275,8 +275,8 @@ definitionListItemToDokuWiki opts (label, items) = do
275isSimpleList :: Block -> Bool
275isSimpleList :: Block -> Bool
276isSimpleList x =
276isSimpleList x =
277 case x of
277 case x of
278− BulletList items -> True
278+ BulletList _ -> True
279− OrderedList (num, sty, _) items -> True
279+ OrderedList _ _ -> True
280 DefinitionList items -> all isSimpleListItem $ concatMap snd items
280 DefinitionList items -> all isSimpleListItem $ concatMap snd items
281 _ -> False
281 _ -> False