@@ -377,7 +377,6 @@ startsWithMarker f (x:xs) =
377377 startsWithDot _ = False
378378startsWithMarker _ [] = False
379379
380−-- | Escape special characters for Muse if needed.
381380containsFootnotes :: String -> Bool
382381containsFootnotes = p
383382 where p ('[':xs) = q xs || p xs
@@ -407,6 +406,7 @@ shouldEscapeString s = do
407406 ("]" `isInfixOf` s && insideLink) ||
408407 containsFootnotes s
409408
409+-- | Escape special characters for Muse if needed.
410410conditionalEscapeString :: PandocMonad m
411411 => String
412412 -> Muse m String