[WIP] Fable support update

Author: ncave

src/netcore/Fable.Client.Browser/demo/repl.js

@@ -325,16 +325,16 @@
       function isObject(x) {
         return x !== null && typeof x === "object" && !(x instanceof Number) && !(x instanceof String) && !(x instanceof Boolean);
       }
-      let mkArray = function (k, v) {
+      let fixValue = function (k, v) {
         return v && v[Symbol.iterator] && !Array.isArray(v) && isObject(v) ? Array.from(v)
           : v && v.Case && v.Fields && Array.isArray(v.Fields) ?
               v.Fields.length == 1 ? v.Fields[0] : v.Fields.length > 1 ? v.Fields : v.Case
           : (k.startsWith("directives@") || k.startsWith("specifiers@")) && !v ? [] : v;
       };
-      let astJson = JSON.stringify(ast, mkArray)
-                        .replace(/"typ"/g, '"type"')
-                        .replace(/@[0-9]+/g, '')
-                        .replace(/"arguments":/g, '"params":');
+      let astJson = JSON.stringify(ast, fixValue)
+                        .replace(/"typ":/g, '"type":')
+                        .replace(/@[0-9]+"/g, '"')
+                        .replace(/"args":/g, '"params":');
       let newAst = JSON.parse(astJson);
       return newAst;
     }