diff options
author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-06 12:53:19 +0300 |
---|---|---|
committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-06 12:58:20 +0300 |
commit | 31b4387a6b53fb543fa6139e6174ad2e2c7bb5e9 (patch) | |
tree | e814956e4dbc80e8bcf9fe71f946794fa5daabee /src | |
parent | 7d193b2aadfed75b4c85a97f24ba5b36a3961fa9 (diff) | |
download | pandoc-31b4387a6b53fb543fa6139e6174ad2e2c7bb5e9.tar.gz |
Muse writer: fix math expansion for more than one expression per paragraph
Diffstat (limited to 'src')
-rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 [] |