From ce533ffd90059f1475ee0e6c5dfd326814cdebbd Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 21 Dec 2010 16:45:13 -0800 Subject: Pretty: don't print a breaking space before a newline. --- src/Text/Pandoc/Pretty.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs index 90dbf7684..c6ba6fb01 100644 --- a/src/Text/Pandoc/Pretty.hs +++ b/src/Text/Pandoc/Pretty.hs @@ -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 -- cgit v1.2.3