@@ -279,31 +279,6 @@ isSimpleList x =
279279 DefinitionList _ -> True
280280 _ -> False
281281
282−-- | True if list item can be handled with the simple wiki syntax. False if
283−-- HTML tags will be needed.
284−isSimpleListItem :: [Block] -> Bool
285−isSimpleListItem [] = True
286−isSimpleListItem [x] =
287− case x of
288− Plain _ -> True
289− Para _ -> True
290− BulletList _ -> isSimpleList x
291− OrderedList _ _ -> isSimpleList x
292− DefinitionList _ -> isSimpleList x
293− _ -> False
294−isSimpleListItem [x, y] | isPlainOrPara x =
295− case y of
296− BulletList _ -> isSimpleList y
297− OrderedList _ _ -> isSimpleList y
298− DefinitionList _ -> isSimpleList y
299− _ -> False
300−isSimpleListItem _ = False
301−
302−isPlainOrPara :: Block -> Bool
303−isPlainOrPara (Plain _) = True
304−isPlainOrPara (Para _) = True
305−isPlainOrPara _ = False
306−
307282-- | Concatenates strings with line breaks between them.
308283vcat :: [String] -> String
309284vcat = intercalate "\n"