diff options
| author | Clare Macrae <github@cfmacrae.fastmail.co.uk> | 2014-06-30 22:07:17 +0100 |
|---|---|---|
| committer | Clare Macrae <github@cfmacrae.fastmail.co.uk> | 2014-06-30 22:07:17 +0100 |
| commit | a049a60129fe12b2b9132d36c9990dbbca3fd4c8 (patch) | |
| tree | 8017ad4da3058df9ffdcaeaacac4932979e65a88 /src/Text/Pandoc/Writers | |
| parent | e35738a3cc1f102e5e380639ae89dea1f549a02e (diff) | |
| download | pandoc-a049a60129fe12b2b9132d36c9990dbbca3fd4c8.tar.gz | |
Disable warnings about unused parameters.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/DokuWiki.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs index 1f2a4e33a..ce8efb281 100644 --- a/src/Text/Pandoc/Writers/DokuWiki.hs +++ b/src/Text/Pandoc/Writers/DokuWiki.hs @@ -351,7 +351,7 @@ tableItemToDokuWiki :: WriterOptions -> [Block] -> State WriterState String -- TODO Fix celltype and align' defined but not used -tableItemToDokuWiki opts celltype align' item = do +tableItemToDokuWiki opts _celltype _align' item = do let mkcell x = "" ++ x ++ "" contents <- blockListToDokuWiki opts item return $ mkcell contents @@ -378,7 +378,7 @@ inlineListToDokuWiki opts lst = mapM (inlineToDokuWiki opts) lst >>= return . co -- | Convert Pandoc inline element to DokuWiki. inlineToDokuWiki :: WriterOptions -> Inline -> State WriterState String -inlineToDokuWiki opts (Span attrs ils) = do +inlineToDokuWiki _opts (Span _attrs _ils) = do return "" {- contents <- inlineListToDokuWiki opts ils |