Muse writer: simplify escaping in inlineToMuse Image{}

1 files changed, 1 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index aae6b3d9d..4986aa8a6 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -506,12 +506,11 @@ inlineToMuse (Image attr inlines (source, title)) = do
                   then if null inlines
                           then ""
                           else "[" <> alt <> "]"
-                  else "[" <> text (escape title) <> "]"
+                  else "[" <> text (conditionalEscapeString True title) <> "]"
   let width = case dimension Width attr of
                 Just (Percent x) | isEnabled Ext_amuse opts -> " " ++ show (round x :: Integer)
                 _ -> ""
   return $ "[[" <> text (urlEscapeBrackets source ++ width) <> "]" <> title' <> "]"
-  where escape s = if "]" `isInfixOf` s then escapeString s else conditionalEscapeString True s
 inlineToMuse (Note contents) = do
   -- add to notes in state
   notes <- gets stNotes