From 7019a437de75a096ecaa52d8e7b1a9278c17f16d Mon Sep 17 00:00:00 2001 From: defanor Date: Thu, 21 Dec 2017 22:40:41 +0300 Subject: Use a separate breadcrumb for spacing between blocks --- Pancake/Rendering.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs index 8c5b900..e5d03c4 100644 --- a/Pancake/Rendering.hs +++ b/Pancake/Rendering.hs @@ -546,10 +546,10 @@ renderBlocks = renderBlocks' 0 renderBlocks' _ [] = pure () renderBlocks' n [b] = withBreadcrumb n $ renderBlock b renderBlocks' n (b1:bs@(b2:_)) = do - withBreadcrumb n $ do - renderBlock b1 - when (skipAfter b1 || skipBefore b2) $ storeLines [[]] - renderBlocks' (n + 1) bs + withBreadcrumb n $ renderBlock b1 + when (skipAfter b1 || skipBefore b2) $ + withBreadcrumb (n + 1) $ storeLines [[]] + renderBlocks' (n + 2) bs -- | Renders a document. renderDoc :: Int -- cgit v1.2.3