From cc8e3345d930999efbad99b146c2efcd19a55efa Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Thu, 31 Dec 2009 01:13:48 +0000 Subject: -Wall cleanup in markdown writer. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1706 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Writers/Markdown.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Text/Pandoc') 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 -- cgit v1.2.3