Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Muse writer: escape empty strings

Browse source 
This guarantees that conditionalEscapeString never returns empty string.
This commit is contained in:
Alexander Krotov 2018-09-01 17:44:17 +03:00
parent 23ed97f081
commit bd2bd9aeaa
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Writers/Muse.hs
View file

@ -327,7 +327,8 @@ shouldEscapeString :: PandocMonad m
-> Muse m Bool -> Muse m Bool
shouldEscapeString s = do shouldEscapeString s = do
insideLink <- asks envInsideLinkDescription insideLink <- asks envInsideLinkDescription
return $ any (`elem` ("#*<=|" :: String)) s || return $ null s ||
any (`elem` ("#*<=|" :: String)) s ||
"::" `isInfixOf` s || "::" `isInfixOf` s ||
"~~" `isInfixOf` s || "~~" `isInfixOf` s ||
"[[" `isInfixOf` s || "[[" `isInfixOf` s ||