diff options
| -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 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 |