refactor(encode): explicitly curry combinators

Author: glennsl

src/Json_Encode.res

@@ -39,22 +39,22 @@ let option = encode => opt =>
   | Some(v) => v->encode
   }
 
-let withDefault = (default, encode, opt) =>
+let withDefault = (default, encode) => opt =>
   switch opt {
   | None => default
   | Some(v) => v->encode
   }
 
 let date = date => date->Js.Date.toJSONUnsafe->string
 
-let pair = (encodeA, encodeB, (a, b)) => [a->encodeA, b->encodeB]->jsonArray
-let tuple2 = (encodeA, encodeB, (a, b)) => [a->encodeA, b->encodeB]->jsonArray
-let tuple3 = (encodeA, encodeB, encodeC, (a, b, c)) =>
+let pair = (encodeA, encodeB) => ((a, b)) => [a->encodeA, b->encodeB]->jsonArray
+let tuple2 = (encodeA, encodeB) => ((a, b)) => [a->encodeA, b->encodeB]->jsonArray
+let tuple3 = (encodeA, encodeB, encodeC) => ((a, b, c)) =>
   [a->encodeA, b->encodeB, c->encodeC]->jsonArray
-let tuple4 = (encodeA, encodeB, encodeC, encodeD, (a, b, c, d)) =>
+let tuple4 = (encodeA, encodeB, encodeC, encodeD) => ((a, b, c, d)) =>
   [a->encodeA, b->encodeB, c->encodeC, d->encodeD]->jsonArray
 
-let dict = (encode, dict) => Js.Dict.map((. v) => encode(v), dict)->jsonDict
+let dict = encode => dict => Js.Dict.map(v => encode(v), dict)->jsonDict
 
 module Unsafe = {
   external object: {..} => Js.Json.t = "%identity"

src/Json_Encode.resi

@@ -10,14 +10,14 @@ let array: t<'a> => t<array<'a>>
 let list: t<'a> => t<list<'a>>
 let object: array<(string, Js.Json.t)> => Js.Json.t
 let option: t<'a> => t<option<'a>>
-let withDefault: (Js.Json.t, t<'a>, option<'a>) => Js.Json.t
+let withDefault: (Js.Json.t, t<'a>) => option<'a> => Js.Json.t
 
 let date: Js.Date.t => Js.Json.t
-let pair: (t<'a>, t<'b>, ('a, 'b)) => Js.Json.t
-let tuple2: (t<'a>, t<'b>, ('a, 'b)) => Js.Json.t
-let tuple3: (t<'a>, t<'b>, t<'c>, ('a, 'b, 'c)) => Js.Json.t
-let tuple4: (t<'a>, t<'b>, t<'c>, t<'d>, ('a, 'b, 'c, 'd)) => Js.Json.t
-let dict: (t<'a>, Js.Dict.t<'a>) => Js.Json.t
+let pair: (t<'a>, t<'b>) => (('a, 'b)) => Js.Json.t
+let tuple2: (t<'a>, t<'b>) => (('a, 'b)) => Js.Json.t
+let tuple3: (t<'a>, t<'b>, t<'c>) => (('a, 'b, 'c)) => Js.Json.t
+let tuple4: (t<'a>, t<'b>, t<'c>, t<'d>) => (('a, 'b, 'c, 'd)) => Js.Json.t
+let dict: t<'a> => Js.Dict.t<'a> => Js.Json.t
 
 // Short-hands for zero-cost composite primitives
 external jsonDict: Js.Dict.t<Js.Json.t> => Js.Json.t = "%identity"