Fix #508: JSON.Stringify replacer argument type

dotnet-websharper · Dec 7, 2015 · eca4412 · eca4412
1 parent b5158ec
commit eca4412
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/stdlib/WebSharper.JavaScript/Ecma.fs b/src/stdlib/WebSharper.JavaScript/Ecma.fs
@@ -342,7 +342,11 @@ module Definition =
         |+> Static
             [
                 "parse" => T<string> * !?T<obj->obj->bool>?reviver ^-> T<obj>
-                "stringify" => T<obj>?value * !?(T<obj->obj> + (Type.ArrayOf T<obj>))?replacer * !?(T<string> + T<int>)?space ^-> T<string>
+                "stringify" => T<obj>?value * (T<string>*T<obj>^->T<obj>)?replacer ^-> T<string>
+                |> WithInteropInline (fun p -> sprintf "JSON.stringify(%s,%s)" (p"value") (p"replacer"))
+                "stringify" => T<obj>?value * (T<string>*T<obj>^->T<obj>)?replacer * (T<string> + T<int>)?space ^-> T<string>
+                |> WithInteropInline (fun p -> sprintf "JSON.stringify(%s,%s,%s)" (p"value") (p"replacer") (p "space"))
+                "stringify" => T<obj>?value * !?(Type.ArrayOf T<obj>)?replacer * !?(T<string> + T<int>)?space ^-> T<string>
             ]
 
     let Namespaces =