diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2019-02-18 15:11:02 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2019-02-18 15:21:32 +0300 |
| commit | 073db7ac1f79437468702073bfbd97166b48753b (patch) | |
| tree | 2c01a9f24c35c57a901911ec455e6471e263aaa8 /src/Text/Pandoc | |
| parent | b11ad32605f3bc306b3b75331a43f65afd5fa93c (diff) | |
| download | pandoc-073db7ac1f79437468702073bfbd97166b48753b.tar.gz | |
Move a comment in Muse Writer
Diffstat (limited to 'src/Text/Pandoc')
| -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 |