Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Make sure native output ends in newline with --standalone.

Browse source
This commit is contained in:
John MacFarlane 2011-01-21 09:58:23 -08:00
parent bfbc289871
commit 5c35be1362
8 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/Native.hs
View file

@ -73,6 +73,6 @@ writeNative opts (Pandoc meta blocks) =
else Nothing else Nothing
withHead = if writerStandalone opts withHead = if writerStandalone opts
then \bs -> text ("Pandoc " ++ "(" ++ show meta ++ ")") $$ then \bs -> text ("Pandoc " ++ "(" ++ show meta ++ ")") $$
bs <> cr bs $$ cr
else id else id
in render colwidth $ withHead $ prettyList $ map prettyBlock blocks in render colwidth $ withHead $ prettyList $ map prettyBlock blocks