diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 73d79a9a2..c3c1c3120 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -363,11 +363,8 @@ inlineToMuse (Quoted DoubleQuote lst) = do
inlineToMuse (Cite _ lst) = inlineListToMuse lst
inlineToMuse (Code _ str) = return $
"" <> text (substitute "" "</code>" str) <> ""
-inlineToMuse (Math InlineMath str) =
- lift (texMathToInlines InlineMath str) >>= inlineListToMuse
-inlineToMuse (Math DisplayMath str) = do
- contents <- lift (texMathToInlines DisplayMath str) >>= inlineListToMuse
- return $ "" <> contents <> "" <> blankline
+inlineToMuse (Math t str) =
+ lift (texMathToInlines t str) >>= inlineListToMuse
inlineToMuse (RawInline (Format f) str) =
return $ " text f <> "\">" <> text str <> ""
inlineToMuse LineBreak = return $ "
" <> cr
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index fda5c7c9e..f330d14c5 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -330,7 +330,7 @@ tests = [ testGroup "block elements"
]
, testGroup "math"
[ "inline math" =: math "2^3" =?> "23"
- , "display math" =: displayMath "2^3" =?> "23"
+ , "display math" =: displayMath "2^3" =?> "23"
, "multiple letters in inline math" =: math "abc" =?> "abc"
]
, "raw inline"
diff --git a/test/writer.muse b/test/writer.muse
index 33c622a3a..aed30ba4a 100644
--- a/test/writer.muse
+++ b/test/writer.muse
@@ -520,7 +520,7 @@ Ellipses…and…and….
- 223
- p-Tree
- Here’s some display math:
- $$\frac{d}{dx}f(x)=\lim_{h\to 0}\frac{f(x+h)-f(x)}{h}$$
+ $$\frac{d}{dx}f(x)=\lim_{h\to 0}\frac{f(x+h)-f(x)}{h}$$
- Here’s one that has a line break in it:
α + ω × x2.