aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorClare Macrae <github@cfmacrae.fastmail.co.uk>2014-07-02 21:01:33 +0100
committerClare Macrae <github@cfmacrae.fastmail.co.uk>2014-07-02 21:01:33 +0100
commit92a962ba63fc8a956cf48a828f200bf10b72cc35 (patch)
tree310c874a0af85d0b43557d9b62e7712c4be73c90 /src/Text/Pandoc
parent3cb76d956028c4c529dc95aab8cc4dce93f8e886 (diff)
downloadpandoc-92a962ba63fc8a956cf48a828f200bf10b72cc35.tar.gz
DokuWiki writer: remove unused code
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/DokuWiki.hs25
1 files changed, 0 insertions, 25 deletions
diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs
index 31057f09e..663bcce2e 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -279,31 +279,6 @@ isSimpleList x =
DefinitionList _ -> True
_ -> False
--- | True if list item can be handled with the simple wiki syntax. False if
--- HTML tags will be needed.
-isSimpleListItem :: [Block] -> Bool
-isSimpleListItem [] = True
-isSimpleListItem [x] =
- case x of
- Plain _ -> True
- Para _ -> True
- BulletList _ -> isSimpleList x
- OrderedList _ _ -> isSimpleList x
- DefinitionList _ -> isSimpleList x
- _ -> False
-isSimpleListItem [x, y] | isPlainOrPara x =
- case y of
- BulletList _ -> isSimpleList y
- OrderedList _ _ -> isSimpleList y
- DefinitionList _ -> isSimpleList y
- _ -> False
-isSimpleListItem _ = False
-
-isPlainOrPara :: Block -> Bool
-isPlainOrPara (Plain _) = True
-isPlainOrPara (Para _) = True
-isPlainOrPara _ = False
-
-- | Concatenates strings with line breaks between them.
vcat :: [String] -> String
vcat = intercalate "\n"