Add standard conform JSON Escaping

Reference: RFC 8259, "7. Strings", https://tools.ietf.org/html/rfc8259#section-7
haskell · Aug 15, 2021 · 3abcee5 · 3abcee5
1 parent 2e6d0db
commit 3abcee5
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/Cabal/src/Distribution/Utils/Json.hs b/Cabal/src/Distribution/Utils/Json.hs
@@ -43,7 +43,11 @@ surround begin end middle = mconcat [ begin , middle , end]
 escape :: String -> String
 escape ('\"':xs) = "\\\"" <> escape xs
 escape ('\\':xs) = "\\\\" <> escape xs
-escape ('\'':xs) = "\\\'" <> escape xs
+escape ('\b':xs) = "\\b"  <> escape xs
+escape ('\f':xs) = "\\f"  <> escape xs
+escape ('\n':xs) = "\\n"  <> escape xs
+escape ('\r':xs) = "\\r"  <> escape xs
+escape ('\t':xs) = "\\t"  <> escape xs
 escape (x:xs)    = x : escape xs
 escape []        = mempty