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

Pretty: don't print a breaking space before a newline.

Browse Source
This commit is contained in:
John MacFarlane
2010-12-21 16:45:13 -08:00
parent fe1152985c
commit ce533ffd90
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Pretty.hs
+4
View File
@@ -250,6 +250,10 @@ renderList (NewLine : xs) = do
outp (-1) "\n"
renderList xs
renderList (BreakingSpace : CarriageReturn : xs) = renderList (CarriageReturn:xs)
renderList (BreakingSpace : NewLine : xs) = renderList (NewLine:xs)
renderList (BreakingSpace : BlankLine : xs) = renderList (BlankLine:xs)
renderList (BreakingSpace : BreakingSpace : xs) = renderList (BreakingSpace:xs)
renderList (BreakingSpace : xs) = do
let isText (Text _ _) = True
isText (Block _ _) = True