lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-24 16:35:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

-Wall cleanup in markdown writer.

Browse Source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1706 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher
2009-12-31 01:13:48 +00:00
parent 225f7dd411
commit cc8e3345d9
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/Markdown.hs
+3 -3
View File
@@ -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