@@ -250,6 +250,10 @@ renderList (NewLine : xs) = do
250 outp (-1) "\n"
250 outp (-1) "\n"
251 renderList xs
251 renderList xs
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)
253renderList (BreakingSpace : xs) = do
257renderList (BreakingSpace : xs) = do
254 let isText (Text _ _) = True
258 let isText (Text _ _) = True
255 isText (Block _ _) = True
259 isText (Block _ _) = True