Pretty: don't print a breaking space before a newline.
commitce533ffd90059f1475ee0e6c5dfd326814cdebbd
authorJohn MacFarlane <jgm@berkeley.edu>
dateTue 21 Dec 2010, 16:45 (16 years ago)
parentfe11529
src/Text/Pandoc/Pretty.hs+4
@@ -250,6 +250,10 @@ renderList (NewLine : xs) = do
250250 outp (-1) "\n"
251251 renderList xs
252252
253+renderList (BreakingSpace : CarriageReturn : xs) = renderList (CarriageReturn:xs)
254+renderList (BreakingSpace : NewLine : xs) = renderList (NewLine:xs)
255+renderList (BreakingSpace : BlankLine : xs) = renderList (BlankLine:xs)
256+renderList (BreakingSpace : BreakingSpace : xs) = renderList (BreakingSpace:xs)
253257renderList (BreakingSpace : xs) = do
254258 let isText (Text _ _) = True
255259 isText (Block _ _) = True