on master help sign in
add escaping of backslashes in Json.Encode.chars
8b9ac19Evan Czaplicki
compiler/src/Json/Encode.hs+1
@@ -120,6 +120,7 @@ escape chrs =
120 | c == '\n' -> '\\' : 'n' : escape cs
120 | c == '\n' -> '\\' : 'n' : escape cs
121 | c == '\"' -> '\\' : '"' : escape cs
121 | c == '\"' -> '\\' : '"' : escape cs
122 | c == '\'' -> '\\' : '\'' : escape cs
122 | c == '\'' -> '\\' : '\'' : escape cs
123+ | c == '\\' -> '\\' : '\\' : escape cs
123 | otherwise -> c : escape cs
124 | otherwise -> c : escape cs
124
125
125
126