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/Text/Pandoc/Writers')

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