From 073db7ac1f79437468702073bfbd97166b48753b Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 18 Feb 2019 15:11:02 +0300
Subject: Move a comment in Muse Writer
---
src/Text/Pandoc/Writers/Muse.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'src')
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
--
cgit v1.2.3