cc8e334 · typeable/pandoc

git.iko.soy/typeable/pandoc

-Wall cleanup in markdown writer.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1706 788f1e2b-df1e-0410-8736-df70ead52e1b

commitcc8e3345d930999efbad99b146c2efcd19a55efa authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateThu 31 Dec 2009, 01:13 (17 years ago) parent225f7dd

1 file changed+3−3

compare with master

unifiedsplit

src/Text/Pandoc/Writers/Markdown.hs+3−3

src/Text/Pandoc/Writers/Markdown.hs+3−3

@@ -35,7 +35,7 @@ import Text.Pandoc.Templates

3535import Text.Pandoc.Shared

3636import Text.Pandoc.Blocks

3737import Text.ParserCombinators.Parsec ( parse, GenParser )

38−import Data.List ( group, isPrefixOf, drop, find, intersperse, intercalate, transpose )

38+import Data.List ( group, isPrefixOf, drop, find, intersperse, transpose )

3939import Text.PrettyPrint.HughesPJ hiding ( Str )

4040import Control.Monad.State

4141

@@ -128,13 +128,13 @@ titleToMarkdown opts lst = do

128128 return $ text "% " <> contents

129129

130130authorsToMarkdown :: WriterOptions -> [[Inline]] -> State WriterState Doc

131−authorsToMarkdown opts [] = return empty

131+authorsToMarkdown _ [] = return empty

132132authorsToMarkdown opts lst = do

133133 authors <- mapM (inlineListToMarkdown opts) lst

134134 return $ text "% " <> (hcat $ intersperse (text ", ") authors)

135135

136136dateToMarkdown :: WriterOptions -> [Inline] -> State WriterState Doc

137−dateToMarkdown opts [] = return empty

137+dateToMarkdown _ [] = return empty

138138dateToMarkdown opts str = do

139139 date <- inlineListToMarkdown opts str

140140 return $ text "% " <> date