diff options
-rw-r--r-- | src/Text/Pandoc/Entities.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Entities.hs b/src/Text/Pandoc/Entities.hs index c5dfbf134..fd3cf9e57 100644 --- a/src/Text/Pandoc/Entities.hs +++ b/src/Text/Pandoc/Entities.hs @@ -58,7 +58,7 @@ decodeEntities str = -- possible. encodeEntities :: String -> String encodeEntities [] = [] -encodeEntities (c:cs) = if ord c < 127 +encodeEntities (c:cs) = if ord c < 128 then c:(encodeEntities cs) else (charToEntity c) ++ (encodeEntities cs) |