aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/Muse.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index c25b76f65..c09545e85 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -377,7 +377,6 @@ startsWithMarker f (x:xs) =
startsWithDot _ = False
startsWithMarker _ [] = False
--- | Escape special characters for Muse if needed.
containsFootnotes :: String -> Bool
containsFootnotes = p
where p ('[':xs) = q xs || p xs
@@ -407,6 +406,7 @@ shouldEscapeString s = do
("]" `isInfixOf` s && insideLink) ||
containsFootnotes s
+-- | Escape special characters for Muse if needed.
conditionalEscapeString :: PandocMonad m
=> String
-> Muse m String