Avoid compiler warning for unused identifier.

This commit is contained in:
John MacFarlane 2015-10-22 21:05:52 -07:00
parent 317d9eea17
commit a21833b638

View file

@ -287,7 +287,7 @@ isSimpleList :: Block -> Bool
isSimpleList x =
case x of
BulletList items -> all isSimpleListItem items
OrderedList (num, sty, _) items -> all isSimpleListItem items &&
OrderedList (_, sty, _) items -> all isSimpleListItem items &&
sty `elem` [DefaultStyle, Decimal]
_ -> False