aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2009-12-31 01:13:48 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2009-12-31 01:13:48 +0000
commitcc8e3345d930999efbad99b146c2efcd19a55efa (patch)
tree9637a183333cc3aca7ce2f0c797e20cd8927b122 /src
parent225f7dd4114bc13c17b70595eb8c79aeb3acb1da (diff)
downloadpandoc-cc8e3345d930999efbad99b146c2efcd19a55efa.tar.gz
-Wall cleanup in markdown writer.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1706 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/Markdown.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index 25fe561da..fecd0bd29 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -35,7 +35,7 @@ import Text.Pandoc.Templates
import Text.Pandoc.Shared
import Text.Pandoc.Blocks
import Text.ParserCombinators.Parsec ( parse, GenParser )
-import Data.List ( group, isPrefixOf, drop, find, intersperse, intercalate, transpose )
+import Data.List ( group, isPrefixOf, drop, find, intersperse, transpose )
import Text.PrettyPrint.HughesPJ hiding ( Str )
import Control.Monad.State
@@ -128,13 +128,13 @@ titleToMarkdown opts lst = do
return $ text "% " <> contents
authorsToMarkdown :: WriterOptions -> [[Inline]] -> State WriterState Doc
-authorsToMarkdown opts [] = return empty
+authorsToMarkdown _ [] = return empty
authorsToMarkdown opts lst = do
authors <- mapM (inlineListToMarkdown opts) lst
return $ text "% " <> (hcat $ intersperse (text ", ") authors)
dateToMarkdown :: WriterOptions -> [Inline] -> State WriterState Doc
-dateToMarkdown opts [] = return empty
+dateToMarkdown _ [] = return empty
dateToMarkdown opts str = do
date <- inlineListToMarkdown opts str
return $ text "% " <> date