Melange v3 long-lived branch

melange-community · Dec 1, 2023 · 3bb1003 · 3bb1003
1 parent 9f29577
commit 3bb1003
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/examples/encode.ml b/examples/encode.ml
@@ -10,7 +10,7 @@ let _ =
 (* prints ["foo", "bar"] *)
 let _ =
   [| "foo"; "bar" |]
-  |> Js.Array.map Json.Encode.string
+  |> Js.Array.map ~f:Json.Encode.string
   |> Json.Encode.jsonArray
   |> Json.stringify
   |> Js.log
@@ -63,4 +63,4 @@ let data = {
 let _ =
   data
   |> Encode.line
-  |> Js.log
+  |> Js.log
diff --git a/src/Json_decode.ml b/src/Json_decode.ml
@@ -164,7 +164,7 @@ let oneOf decoders json =
     match decoders with
     | [] ->
         let formattedErrors =
-          "\n- " ^ Js.Array.joinWith "\n- " (Array.of_list (List.rev errors))
+          "\n- " ^ Js.Array.join ~sep:"\n- " (Array.of_list (List.rev errors))
         in
         raise
         @@ DecodeError