Add standard conform JSON Escaping

Reference: RFC 8259, "7. Strings", https://tools.ietf.org/html/rfc8259#section-7
haskell · Jul 13, 2021 · 4c34d78 · 4c34d78
1 parent 63e6521
commit 4c34d78
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