diff options
| -rw-r--r-- | src/Text/Pandoc/XML.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/XML.hs b/src/Text/Pandoc/XML.hs index a5d0202e5..68c5c3c5c 100644 --- a/src/Text/Pandoc/XML.hs +++ b/src/Text/Pandoc/XML.hs @@ -53,12 +53,11 @@ escapeCharForXML x = case x of '<' -> "<" '>' -> ">" '"' -> """ - '\160' -> " " c -> [c] -- | True if the character needs to be escaped. needsEscaping :: Char -> Bool -needsEscaping c = c `elem` "&<>\"\160" +needsEscaping c = c `elem` "&<>\"" -- | Escape string as needed for XML. Entity references are not preserved. escapeStringForXML :: String -> String |