From 31b4387a6b53fb543fa6139e6174ad2e2c7bb5e9 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 6 Mar 2018 12:53:19 +0300
Subject: Muse writer: fix math expansion for more than one expression per
 paragraph

---
 src/Text/Pandoc/Writers/Muse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 1f6006b2e..404ebf7bc 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -295,7 +295,7 @@ conditionalEscapeString s =
 preprocessInlineList :: PandocMonad m
                      => [Inline]
                      -> m [Inline]
-preprocessInlineList (Math t str:xs) = (++ xs) <$> texMathToInlines t str
+preprocessInlineList (Math t str:xs) = (++) <$> texMathToInlines t str <*> preprocessInlineList xs
 preprocessInlineList (x:xs) = (x:) <$> preprocessInlineList xs
 preprocessInlineList [] = return []
 
-- 
cgit v1.2.3