From 60871cf9623e154dd411689d8ac592cba6d34713 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Sun, 29 Oct 2017 00:34:50 +0300
Subject: Start rendering with zero indentation

A minor fix: `renderDoc` used to call `renderBlocks`, which increases
indentation at once, giving a minimum indentation level of 1.
---
 Pancake.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Pancake.hs')

diff --git a/Pancake.hs b/Pancake.hs
index b637754..939ca6d 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -498,7 +498,7 @@ renderDoc (P.Pandoc _ blocks) = do
   term <- liftIO TI.setupTermFromEnv
   st <- get
   let cols = maybe 80 id $ TI.getCapability term TI.termColumns
-      l = runRenderer cols $ renderBlocks blocks
+      l = runRenderer cols $ mapM_ renderBlock blocks
       textLines = rights l
   modify (\s -> s { links = lefts l })
   if embedded st
-- 
cgit v1.2.3