92a962b · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

DokuWiki writer: remove unused code

92a962bClare Macrae12 years ago

src/Text/Pandoc/Writers/DokuWiki.hs−25

@@ -279,31 +279,6 @@ isSimpleList x =

279 DefinitionList _ -> True

280 _ -> False

281

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−

307-- | Concatenates strings with line breaks between them.

282-- | Concatenates strings with line breaks between them.

308vcat :: [String] -> String

283vcat :: [String] -> String

309vcat = intercalate "\n"

284vcat = intercalate "\n"