From 1aac754359d44a96e30e96f61f38c58d6aea29b4 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 11 Sep 2018 14:10:20 +0300
Subject: Muse writer: set envInsideBlock = True when rendering notes
---
src/Text/Pandoc/Writers/Muse.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'src')
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 26349493b..13c9c23b7 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -293,7 +293,8 @@ noteToMuse :: PandocMonad m
-> Muse m Doc
noteToMuse num note =
hang (length marker) (text marker) <$>
- (local (\env -> env { envInlineStart = True
+ (local (\env -> env { envInsideBlock = True
+ , envInlineStart = True
, envAfterSpace = True
}) $ blockListToMuse note)
where
--
cgit v1.2.3