Fix performance of Compiler.Json.Encode.escape

Author: decioferreira

src/Compiler/Json/Encode.elm

@@ -177,31 +177,26 @@ chars chrs =
 
 escape : String -> String
 escape chrs =
-    case String.toList chrs of
-        [] ->
-            ""
-
-        c :: cs ->
-            let
-                escapedChar : String
-                escapedChar =
-                    case c of
-                        '\u{000D}' ->
-                            "\\r"
-
-                        '\n' ->
-                            "\\n"
-
-                        '"' ->
-                            "\\\""
-
-                        '\\' ->
-                            "\\\\"
-
-                        _ ->
-                            String.fromChar c
-            in
-            escapedChar ++ escape (String.fromList cs)
+    String.toList chrs
+        |> List.map
+            (\c ->
+                case c of
+                    '\u{000D}' ->
+                        "\\r"
+
+                    '\n' ->
+                        "\\n"
+
+                    '"' ->
+                        "\\\""
+
+                    '\\' ->
+                        "\\\\"
+
+                    _ ->
+                        String.fromChar c
+            )
+        |> String.concat