diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-01-01 04:12:06 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-01-01 04:12:06 +0000 |
| commit | 8fce9c54ece087311ccf3240b265f6b3c8144773 (patch) | |
| tree | 62343e5b4c32821d9a97520c650ec6bd2515df21 /src/Text/Pandoc | |
| parent | c7149d317fb644187e5677888b33369227205717 (diff) | |
XML: don't escape \160 (nonbreaking space) as an entity.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1770 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
| -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 |