@greenlabs/ppx-spice 0.1.6 → 0.1.7-rc1

package/.vscode/settings.json

@@ -0,0 +1,6 @@
+{
+  "ocaml.sandbox": {
+    "kind": "opam",
+    "switch": "4.12.1"
+  }
+}

package/CHANGELOG.md

@@ -0,0 +1,7 @@
+# CHANGELOG
+
+# 0.1.7
+
+#### :rocket: New Feature
+
+- Add support for the optional field record

package/README.md

@@ -3,8 +3,9 @@
 A ReScript PPX, which generates JSON (de)serializers.
 
 `Spice` is originated from
-* The `Spice melange` in the novel, Dune
-* A flavor for the (polymorphic) variant
+
+- The `Spice melange` in the novel, Dune
+- A flavor for the (polymorphic) variant
 
 > This PPX is highly influenced by [Decco](https://github.com/reasonml-labs/decco) and developed with forking the source codes of Decco. Spice has implemented all the features of Decco@1.5.0 and additional useful features for the (polymorphic) variant of its own.
 
@@ -18,7 +19,7 @@ Whenever it is needed to parse the response in Json, the custom encoder/decoder
 
 with Decco
 
-```
+```rescript
 @decco
 type status = WAITING | PROCESSING | SUCCESS | FAIL
 
@@ -54,7 +55,8 @@ type data = {
 ```
 
 with Spice
-```
+
+```rescript
 @spice
 type status =
   | @spice.as("waiting") WAITING
@@ -86,7 +88,7 @@ let t_encode = ...
 // automatically generated
 let t_decode = ...
 
-let encoded = One->t_encode // Js.Json.JSONString(`하나`)
+let encoded = One->t_encode // Js.Json.string(`하나`)
 
 let decoded = Js.Json.string(`second`)->t_decode // Belt.Result.Ok(Two)
 ```
@@ -118,11 +120,11 @@ let decoded = sampleJson->Records.t_decode // Belt.Result.Ok(sampleRecord)
 
 ## Install
 
-```
+```sh
 yarn add -D @greenlabs/ppx-spice
 ```
 
-```
+```json
 // bsconfig.json
 
 "bs-dependencies": [

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@greenlabs/ppx-spice",
-  "version": "0.1.6",
+  "version": "0.1.7-rc1",
   "description": "ReScript PPX which generate JSON (de)serializer",
   "license": "MIT",
   "author": "Greenlabs Dev <developer@greenlabs.co.kr>",
@@ -10,7 +10,7 @@
   },
   "bugs": {
     "url": "https://github.com/green-labs/ppx_spice/issues"
-    },
+  },
   "keywords": [
     "ReScript",
     "ppx"

package/src/ppx/codecs.ml

@@ -27,165 +27,103 @@ and generate_constr_codecs { do_encode; do_decode }
     { Location.txt = identifier; loc } =
   let open Longident in
   match identifier with
-  | Lident "string" -> (
-      ( (match do_encode with
-        | true -> Some [%expr Spice.stringToJson]
-        | false -> None),
-        match do_decode with
-        | true -> Some [%expr Spice.stringFromJson]
-        | false -> None ))
-  | Lident "int" -> (
-      ( (match do_encode with
-        | true -> Some [%expr Spice.intToJson]
-        | false -> None),
-        match do_decode with
-        | true -> Some [%expr Spice.intFromJson]
-        | false -> None ))
-  | Lident "int64" -> (
-      ( (match do_encode with
-        | true -> Some [%expr Spice.int64ToJson]
-        | false -> None),
-        match do_decode with
-        | true -> Some [%expr Spice.int64FromJson]
-        | false -> None ))
-  | Lident "float" -> (
-      ( (match do_encode with
-        | true -> Some [%expr Spice.floatToJson]
-        | false -> None),
-        match do_decode with
-        | true -> Some [%expr Spice.floatFromJson]
-        | false -> None ))
-  | Lident "bool" -> (
-      ( (match do_encode with
-        | true -> Some [%expr Spice.boolToJson]
-        | false -> None),
-        match do_decode with
-        | true -> Some [%expr Spice.boolFromJson]
-        | false -> None ))
-  | Lident "unit" -> (
-      ( (match do_encode with
-        | true -> Some [%expr Spice.unitToJson]
-        | false -> None),
-        match do_decode with
-        | true -> Some [%expr Spice.unitFromJson]
-        | false -> None ))
-  | Lident "array" -> (
-      ( (match do_encode with
-        | true -> Some [%expr Spice.arrayToJson]
-        | false -> None),
-        match do_decode with
-        | true -> Some [%expr Spice.arrayFromJson]
-        | false -> None ))
-  | Lident "list" -> (
-      ( (match do_encode with
-        | true -> Some [%expr Spice.listToJson]
-        | false -> None),
-        match do_decode with
-        | true -> Some [%expr Spice.listFromJson]
-        | false -> None ))
-  | Lident "option" -> (
-      ( (match do_encode with
-        | true -> Some [%expr Spice.optionToJson]
-        | false -> None),
-        match do_decode with
-        | true -> Some [%expr Spice.optionFromJson]
-        | false -> None ))
-  | Ldot (Ldot (Lident "Belt", "Result"), "t") -> (
-      ( (match do_encode with
-        | true -> Some [%expr Spice.resultToJson]
-        | false -> None),
-        match do_decode with
-        | true -> Some [%expr Spice.resultFromJson]
-        | false -> None ))
-  | Ldot (Ldot (Lident "Js", "Dict"), "t") -> (
-      ( (match do_encode with
-        | true -> Some [%expr Spice.dictToJson]
-        | false -> None),
-        match do_decode with
-        | true -> Some [%expr Spice.dictFromJson]
-        | false -> None ))
-  | Ldot (Ldot (Lident "Js", "Json"), "t") -> (
-      ( (match do_encode with true -> Some [%expr fun v -> v] | false -> None),
-        match do_decode with
-        | true -> Some [%expr fun v -> Belt.Result.Ok v]
-        | false -> None ))
-  | Lident s -> (
-      ( (match do_encode with
-        | true -> Some (make_ident_expr (s ^ Utils.encoder_func_suffix))
-        | false -> None),
-        match do_decode with
-        | true -> Some (make_ident_expr (s ^ Utils.decoder_func_suffix))
-        | false -> None ))
-  | Ldot (left, right) -> (
-      ( (match do_encode with
-        | true ->
-            Some
-              (Exp.ident
-                 (mknoloc (Ldot (left, right ^ Utils.encoder_func_suffix))))
-        | false -> None),
-        match do_decode with
-        | true ->
-            Some
-              (Exp.ident
-                 (mknoloc (Ldot (left, right ^ Utils.decoder_func_suffix))))
-        | false -> None ))
+  | Lident "string" ->
+      ( some_if_true do_encode [%expr Spice.stringToJson],
+        some_if_true do_decode [%expr Spice.stringFromJson] )
+  | Lident "int" ->
+      ( some_if_true do_encode [%expr Spice.intToJson],
+        some_if_true do_decode [%expr Spice.intFromJson] )
+  | Lident "int64" ->
+      ( some_if_true do_encode [%expr Spice.int64ToJson],
+        some_if_true do_decode [%expr Spice.int64FromJson] )
+  | Lident "float" ->
+      ( some_if_true do_encode [%expr Spice.floatToJson],
+        some_if_true do_decode [%expr Spice.floatFromJson] )
+  | Lident "bool" ->
+      ( some_if_true do_encode [%expr Spice.boolToJson],
+        some_if_true do_decode [%expr Spice.boolFromJson] )
+  | Lident "unit" ->
+      ( some_if_true do_encode [%expr Spice.unitToJson],
+        some_if_true do_decode [%expr Spice.unitFromJson] )
+  | Lident "array" ->
+      ( some_if_true do_encode [%expr Spice.arrayToJson],
+        some_if_true do_decode [%expr Spice.arrayFromJson] )
+  | Lident "list" ->
+      ( some_if_true do_encode [%expr Spice.listToJson],
+        some_if_true do_decode [%expr Spice.listFromJson] )
+  | Lident "option" ->
+      ( some_if_true do_encode [%expr Spice.optionToJson],
+        some_if_true do_decode [%expr Spice.optionFromJson] )
+  | Ldot (Ldot (Lident "Belt", "Result"), "t") ->
+      ( some_if_true do_encode [%expr Spice.resultToJson],
+        some_if_true do_decode [%expr Spice.resultFromJson] )
+  | Ldot (Ldot (Lident "Js", "Dict"), "t") ->
+      ( some_if_true do_encode [%expr Spice.dictToJson],
+        some_if_true do_decode [%expr Spice.dictFromJson] )
+  | Ldot (Ldot (Lident "Js", "Json"), "t") ->
+      ( some_if_true do_encode [%expr fun v -> v],
+        some_if_true do_decode [%expr fun v -> Belt.Result.Ok v] )
+  | Lident s ->
+      ( some_if_true do_encode (make_ident_expr (s ^ Utils.encoder_func_suffix)),
+        some_if_true do_decode (make_ident_expr (s ^ Utils.decoder_func_suffix))
+      )
+  | Ldot (left, right) ->
+      ( some_if_true do_encode
+          (Exp.ident (mknoloc (Ldot (left, right ^ Utils.encoder_func_suffix)))),
+        some_if_true do_decode
+          (Exp.ident (mknoloc (Ldot (left, right ^ Utils.decoder_func_suffix))))
+      )
   | Lapply (_, _) -> fail loc "Lapply syntax not yet handled by spice"
 
-and generate_codecs ({ do_encode; do_decode } as generator_settings)
+and generate_codecs ?(is_optional = false)
+    ({ do_encode; do_decode } as generator_settings)
     { ptyp_desc; ptyp_loc; ptyp_attributes } =
   match ptyp_desc with
   | Ptyp_any -> fail ptyp_loc "Can't generate codecs for `any` type"
   | Ptyp_arrow (_, _, _) ->
       fail ptyp_loc "Can't generate codecs for function type"
   | Ptyp_package _ -> fail ptyp_loc "Can't generate codecs for module type"
-  | Ptyp_tuple types -> (
+  | Ptyp_tuple types ->
       let composite_codecs =
-        List.map (generate_codecs generator_settings) types
+        List.map (generate_codecs ~is_optional generator_settings) types
       in
-      ( (match do_encode with
-        | true ->
-            Some
-              (composite_codecs
-              |> List.map (fun (e, _) -> Option.get e)
-              |> Tuple.generate_encoder)
-        | false -> None),
-        match do_decode with
-        | true ->
-            Some
-              (composite_codecs
-              |> List.map (fun (_, d) -> Option.get d)
-              |> Tuple.generate_decoder)
-        | false -> None ))
-  | Ptyp_var s -> (
-      ( (match do_encode with
-        | true -> Some (make_ident_expr (encoder_var_prefix ^ s))
-        | false -> None),
-        match do_decode with
-        | true -> Some (make_ident_expr (decoder_var_prefix ^ s))
-        | false -> None ))
+      ( some_if_true do_encode
+          (composite_codecs
+          |> List.map (fun (e, _) -> Option.get e)
+          |> Tuple.generate_encoder),
+        some_if_true do_decode
+          (composite_codecs
+          |> List.map (fun (_, d) -> Option.get d)
+          |> Tuple.generate_decoder) )
+  | Ptyp_var s ->
+      ( some_if_true do_encode (make_ident_expr (encoder_var_prefix ^ s)),
+        some_if_true do_decode (make_ident_expr (decoder_var_prefix ^ s)) )
   | Ptyp_constr (constr, typeArgs) -> (
       let custom_codec = get_attribute_by_name ptyp_attributes "spice.codec" in
       let encode, decode =
         match custom_codec with
         | Ok None -> generate_constr_codecs generator_settings constr
-        | Ok (Some attribute) -> (
+        | Ok (Some attribute) ->
             let expr = get_expression_from_payload attribute in
-            ( (match do_encode with
-              | true ->
-                  Some
-                    [%expr
-                      let e, _ = [%e expr] in
-                      e]
-              | false -> None),
-              match do_decode with
-              | true ->
-                  Some
-                    [%expr
-                      let _, d = [%e expr] in
-                      d]
-              | false -> None ))
+            ( some_if_true do_encode
+                [%expr
+                  let e, _ = [%e expr] in
+                  e],
+              some_if_true do_decode
+                [%expr
+                  let _, d = [%e expr] in
+                  d] )
         | Error s -> fail ptyp_loc s
       in
+      let encode, decode =
+        if is_optional then
+          match (encode, decode) with
+          | Some encode, Some decode ->
+              ( Some [%expr Spice.optionToJson [%e encode]],
+                Some [%expr Spice.optionFromJson [%e decode]] )
+          | _ -> (encode, decode)
+        else (encode, decode)
+      in
       match List.length typeArgs = 0 with
       | true -> (encode, decode)
       | false -> parameterize_codecs typeArgs encode decode generator_settings)

package/src/ppx/polyvariants.ml

@@ -219,15 +219,12 @@ let generate_codecs ({ do_encode; do_decode } as generator_settings) row_fields
   in
 
   let encoder =
-    match do_encode with
-    | true ->
-        List.map
-          (generate_encoder_case generator_settings unboxed has_attr_as)
-          parsed_fields
-        |> Exp.match_ [%expr v]
-        |> Exp.fun_ Asttypes.Nolabel None [%pat? v]
-        |> Option.some
-    | false -> None
+    some_if_true do_encode
+      (List.map
+         (generate_encoder_case generator_settings unboxed has_attr_as)
+         parsed_fields
+      |> Exp.match_ [%expr v]
+      |> Exp.fun_ Asttypes.Nolabel None [%pat? v])
   in
 
   let decoder =

package/src/ppx/records.ml

@@ -11,8 +11,16 @@ type parsed_decl = {
   field : expression;
   codecs : expression option * expression option;
   default : expression option;
+  is_optional : bool;
 }
 
+let optional_attr : Ppxlib.Parsetree.attribute =
+  {
+    attr_name = { txt = "ns.optional"; loc = Location.none };
+    attr_payload = PStr [];
+    attr_loc = Location.none;
+  }
+
 let generate_encoder decls unboxed =
   match unboxed with
   | true ->
@@ -22,11 +30,17 @@ let generate_encoder decls unboxed =
   | false ->
       let arrExpr =
         decls
-        |> List.map (fun { key; field; codecs = encoder, _ } ->
-               [%expr [%e key], [%e Option.get encoder] [%e field]])
+        |> List.map (fun { key; field; codecs = encoder, _; is_optional } ->
+               let is_optional =
+                 if is_optional then [%expr true] else [%expr false]
+               in
+               [%expr
+                 [%e key], [%e is_optional], [%e Option.get encoder] [%e field]])
         |> Exp.array
       in
-      [%expr [%e arrExpr] |> Js.Dict.fromArray |> Js.Json.object_]
+      [%expr
+        [%e arrExpr] |> Spice.filterOptional |> Js.Dict.fromArray
+        |> Js.Json.object_]
       |> Exp.fun_ Asttypes.Nolabel None [%pat? v]
 
 let generate_dict_get { key; codecs = _, decoder; default } =
@@ -53,7 +67,10 @@ let generate_error_case { key } =
   }
 
 let generate_final_record_expr decls =
-  decls |> List.map (fun { name } -> (lid name, make_ident_expr name))
+  decls
+  |> List.map (fun { name; is_optional } ->
+         let attrs = if is_optional then [ optional_attr ] else [] in
+         (lid name, make_ident_expr ~attrs name))
   |> fun l -> [%expr Belt.Result.Ok [%e Exp.record l None]]
 
 let generate_success_case { name } success_expr =
@@ -113,20 +130,24 @@ let parse_decl generator_settings
     | Ok None -> Exp.constant (Pconst_string (txt, Location.none, None))
     | Error s -> fail pld_loc s
   in
+  let optional_attrs = [ "ns.optional"; "res.optional" ] in
+  let is_optional =
+    optional_attrs
+    |> List.map (fun attr -> get_attribute_by_name pld_attributes attr)
+    |> List.exists (function Ok (Some _) -> true | _ -> false)
+  in
+
   {
     name = txt;
     key;
     field = Exp.field [%expr v] (lid txt);
-    codecs = Codecs.generate_codecs generator_settings pld_type;
+    codecs = Codecs.generate_codecs ~is_optional generator_settings pld_type;
     default;
+    is_optional;
   }
 
 let generate_codecs ({ do_encode; do_decode } as generator_settings) decls
     unboxed =
   let parsed_decls = List.map (parse_decl generator_settings) decls in
-  ( (match do_encode with
-    | true -> Some (generate_encoder parsed_decls unboxed)
-    | false -> None),
-    match do_decode with
-    | true -> Some (generate_decoder parsed_decls unboxed)
-    | false -> None )
+  ( some_if_true do_encode (generate_encoder parsed_decls unboxed),
+    some_if_true do_decode (generate_decoder parsed_decls unboxed) )

package/src/ppx/utils.ml

@@ -24,7 +24,7 @@ let mknoloc txt = mkloc txt Location.none
 
 let lid ?(loc = Location.none) s = mkloc (Longident.parse s) loc
 
-let make_ident_expr s = Exp.ident (mknoloc (longident_parse s))
+let make_ident_expr ?attrs s = Exp.ident ?attrs (mknoloc (longident_parse s))
 
 let tuple_or_singleton tuple l =
   match List.length l > 1 with true -> tuple l | false -> List.hd l
@@ -113,3 +113,5 @@ let attr_warning expr =
     attr_payload = PStr [ { pstr_desc = Pstr_eval (expr, []); pstr_loc = loc } ];
     attr_loc = loc;
   }
+
+let some_if_true cond a = match cond with true -> Some a | false -> None

package/src/ppx/variants.ml

@@ -188,15 +188,11 @@ let generate_codecs ({ do_encode; do_decode } as generator_settings)
   in
 
   let encoder =
-    match do_encode with
-    | true ->
-        parsed_decls
-        |> List.map
-             (generate_encoder_case generator_settings unboxed has_attr_as)
-        |> Exp.match_ [%expr v]
-        |> Exp.fun_ Asttypes.Nolabel None [%pat? v]
-        |> Option.some
-    | false -> None
+    some_if_true do_encode
+      (parsed_decls
+      |> List.map (generate_encoder_case generator_settings unboxed has_attr_as)
+      |> Exp.match_ [%expr v]
+      |> Exp.fun_ Asttypes.Nolabel None [%pat? v])
   in
 
   let decoder =

package/src/ppx_spice.opam

@@ -0,0 +1,21 @@
+opam-version: "2.0"
+name: "ppx_spice"
+version: "0.1.7"
+synopsis: "ReScript PPX which generate JSON (de)serializer"
+description: """
+ReScript PPX which generate JSON (de)serializer
+"""
+maintainer: "Greenlabs Dev <developer@greenlabs.co.kr>"
+authors: "Greenlabs Dev <developer@greenlabs.co.kr>"
+license: "MIT"
+homepage: "https://github.com/green-labs/ppx_spice"
+bug-reports: "https://github.com/green-labs/ppx_spice/issues"
+dev-repo: "git+https://github.com/green-labs/ppx_spice.git"
+depends: [
+  "ocaml" {"4.12.1"}
+  "dune" { >= "2.7"}
+  "ppxlib" {"0.23.0"}
+]
+build: [
+  ["dune" "build" "-p" name "-j" jobs]
+]

package/src/rescript/Spice.res

@@ -14,7 +14,7 @@ let error = (~path=?, message, value) => {
   | None => ""
   | Some(s) => s
   }
-  Belt.Result.Error({path: path, message: message, value: value})
+  Belt.Result.Error({path, message, value})
 }
 
 let stringToJson = s => Js.Json.string(s)
@@ -98,6 +98,11 @@ let optionToJson = (encoder, opt) =>
   | None => Js.Json.null
   }
 
+let filterOptional = arr =>
+  arr
+  |> Belt.Array.keep(_, ((_, isOptional, x)) => !(isOptional && x == Js.Json.null))
+  |> Belt.Array.map(_, ((k, _, v)) => (k, v))
+
 let optionFromJson = (decoder, json) =>
   switch Js.Json.decodeNull(json) {
   | Some(_) => Belt.Result.Ok(None)

package/test/__tests__/test_polyvariants.js

@@ -5,28 +5,28 @@ var Jest = require("@glennsl/bs-jest/src/jest.js");
 var Polyvariants = require("../src/Polyvariants.js");
 
 Jest.describe("polymorphic variants with attribute", (function (param) {
-        Jest.test("encode \xed\x95\x98\xeb\x82\x98", (function (param) {
+        Jest.test("encode 하나", (function (param) {
                 var polyvariantEncoded = Polyvariants.t_encode("one");
                 return Jest.Expect.toEqual("하나", Jest.Expect.expect(polyvariantEncoded));
               }));
-        Jest.test("encode \xeb\x91\x98", (function (param) {
+        Jest.test("encode 둘", (function (param) {
                 var polyvariantEncoded = Polyvariants.t_encode("two");
                 return Jest.Expect.toEqual("둘", Jest.Expect.expect(polyvariantEncoded));
               }));
-        Jest.test("decode \xed\x95\x98\xeb\x82\x98", (function (param) {
+        Jest.test("decode 하나", (function (param) {
                 var polyvariantDecoded = Polyvariants.t_decode("하나");
                 return Jest.Expect.toEqual({
                             TAG: /* Ok */0,
                             _0: "one"
                           }, Jest.Expect.expect(polyvariantDecoded));
               }));
-        return Jest.test("decode \xeb\x91\x98", (function (param) {
-                      var polyvariantDecoded = Polyvariants.t_decode("둘");
-                      return Jest.Expect.toEqual({
-                                  TAG: /* Ok */0,
-                                  _0: "two"
-                                }, Jest.Expect.expect(polyvariantDecoded));
-                    }));
+        Jest.test("decode 둘", (function (param) {
+                var polyvariantDecoded = Polyvariants.t_decode("둘");
+                return Jest.Expect.toEqual({
+                            TAG: /* Ok */0,
+                            _0: "two"
+                          }, Jest.Expect.expect(polyvariantDecoded));
+              }));
       }));
 
 Jest.describe("polymorphic variants", (function (param) {
@@ -45,13 +45,13 @@ Jest.describe("polymorphic variants", (function (param) {
                             _0: "one"
                           }, Jest.Expect.expect(polyvariantDecoded));
               }));
-        return Jest.test("decode two", (function (param) {
-                      var polyvariantDecoded = Polyvariants.t1_decode(["two"]);
-                      return Jest.Expect.toEqual({
-                                  TAG: /* Ok */0,
-                                  _0: "two"
-                                }, Jest.Expect.expect(polyvariantDecoded));
-                    }));
+        Jest.test("decode two", (function (param) {
+                var polyvariantDecoded = Polyvariants.t1_decode(["two"]);
+                return Jest.Expect.toEqual({
+                            TAG: /* Ok */0,
+                            _0: "two"
+                          }, Jest.Expect.expect(polyvariantDecoded));
+              }));
       }));
 
 /*  Not a pure module */

package/test/__tests__/test_records.js

@@ -16,13 +16,13 @@ Jest.describe("record with @spice.key", (function (param) {
                 var encoded = Records.t_encode(sampleRecord);
                 return Jest.Expect.toEqual(sample, Jest.Expect.expect(encoded));
               }));
-        return Jest.test("decode", (function (param) {
-                      var decoded = Records.t_decode(sample);
-                      return Jest.Expect.toEqual({
-                                  TAG: /* Ok */0,
-                                  _0: sampleRecord
-                                }, Jest.Expect.expect(decoded));
-                    }));
+        Jest.test("decode", (function (param) {
+                var decoded = Records.t_decode(sample);
+                return Jest.Expect.toEqual({
+                            TAG: /* Ok */0,
+                            _0: sampleRecord
+                          }, Jest.Expect.expect(decoded));
+              }));
       }));
 
 Jest.describe("record without @spice.key", (function (param) {
@@ -37,13 +37,64 @@ Jest.describe("record without @spice.key", (function (param) {
                 var encoded = Records.t1_encode(sampleRecord);
                 return Jest.Expect.toEqual(sample, Jest.Expect.expect(encoded));
               }));
-        return Jest.test("decode", (function (param) {
-                      var decoded = Records.t1_decode(sample);
-                      return Jest.Expect.toEqual({
-                                  TAG: /* Ok */0,
-                                  _0: sampleRecord
-                                }, Jest.Expect.expect(decoded));
-                    }));
+        Jest.test("decode", (function (param) {
+                var decoded = Records.t1_decode(sample);
+                return Jest.Expect.toEqual({
+                            TAG: /* Ok */0,
+                            _0: sampleRecord
+                          }, Jest.Expect.expect(decoded));
+              }));
+      }));
+
+Jest.describe("record with optional field", (function (param) {
+        var sample1 = {};
+        sample1["label"] = "sample";
+        sample1["value"] = 1.0;
+        var sampleRecord1 = {
+          label: "sample",
+          value: 1
+        };
+        Jest.test("encode", (function (param) {
+                var encoded = Records.tOp_encode(sampleRecord1);
+                return Jest.Expect.toEqual(sample1, Jest.Expect.expect(encoded));
+              }));
+        Jest.test("decode", (function (param) {
+                var decoded = Records.tOp_decode(sample1);
+                return Jest.Expect.toEqual({
+                            TAG: /* Ok */0,
+                            _0: sampleRecord1
+                          }, Jest.Expect.expect(decoded));
+              }));
+        var sample2 = {};
+        sample2["label"] = "sample";
+        var sampleRecord2 = {
+          label: "sample"
+        };
+        Jest.test("encode omit optional field", (function (param) {
+                var encoded = Records.tOp_encode(sampleRecord2);
+                return Jest.Expect.toEqual(sample2, Jest.Expect.expect(encoded));
+              }));
+        Jest.test("decode omit optional field", (function (param) {
+                var decoded = Records.tOp_decode(sample2);
+                return Jest.Expect.toEqual({
+                            TAG: /* Ok */0,
+                            _0: sampleRecord2
+                          }, Jest.Expect.expect(decoded));
+              }));
+        var sample3 = {};
+        sample3["label"] = null;
+        var sampleRecord3 = {};
+        Jest.test("encode omit optional field with None field", (function (param) {
+                var encoded = Records.tOp_encode(sampleRecord3);
+                return Jest.Expect.toEqual(sample3, Jest.Expect.expect(encoded));
+              }));
+        Jest.test("decode omit optional field with None field", (function (param) {
+                var decoded = Records.tOp_decode(sample3);
+                return Jest.Expect.toEqual({
+                            TAG: /* Ok */0,
+                            _0: sampleRecord3
+                          }, Jest.Expect.expect(decoded));
+              }));
       }));
 
 /*  Not a pure module */

package/test/__tests__/test_records.res

@@ -49,3 +49,63 @@ describe("record without @spice.key", _ => {
     expect(decoded) |> toEqual(Belt.Result.Ok(sampleRecord))
   })
 })
+
+describe("record with optional field", _ => {
+  open Records
+
+  let sample1 = Js.Dict.empty()
+  sample1->Js.Dict.set("label", Js.Json.string("sample"))
+  sample1->Js.Dict.set("value", Js.Json.number(1.0))
+  let sampleJson1 = sample1->Js.Json.object_
+
+  let sampleRecord1: tOp = {
+    label: Some("sample"),
+    value: 1,
+  }
+
+  test(`encode`, _ => {
+    let encoded = sampleRecord1->tOp_encode
+    expect(encoded) |> toEqual(sampleJson1)
+  })
+
+  test(`decode`, _ => {
+    let decoded = sampleJson1->Records.tOp_decode
+    expect(decoded) |> toEqual(Belt.Result.Ok(sampleRecord1))
+  })
+
+  let sample2 = Js.Dict.empty()
+  sample2->Js.Dict.set("label", Js.Json.string("sample"))
+  let sampleJson2 = sample2->Js.Json.object_
+
+  let sampleRecord2: tOp = {
+    label: Some("sample"),
+  }
+
+  test(`encode omit optional field`, _ => {
+    let encoded = sampleRecord2->tOp_encode
+    expect(encoded) |> toEqual(sampleJson2)
+  })
+
+  test(`decode omit optional field`, _ => {
+    let decoded = sampleJson2->Records.tOp_decode
+    expect(decoded) |> toEqual(Belt.Result.Ok(sampleRecord2))
+  })
+
+  let sample3 = Js.Dict.empty()
+  sample3->Js.Dict.set("label", Js.Json.null)
+  let sampleJson3 = sample3->Js.Json.object_
+
+  let sampleRecord3: tOp = {
+    label: None,
+  }
+
+  test(`encode omit optional field with None field`, _ => {
+    let encoded = sampleRecord3->tOp_encode
+    expect(encoded) |> toEqual(sampleJson3)
+  })
+
+  test(`decode omit optional field with None field`, _ => {
+    let decoded = sampleJson3->Records.tOp_decode
+    expect(decoded) |> toEqual(Belt.Result.Ok(sampleRecord3))
+  })
+})

package/test/__tests__/test_variants.js

@@ -20,13 +20,13 @@ Jest.describe("variants with @spice.as", (function (param) {
                             _0: /* One */0
                           }, Jest.Expect.expect(variantDecoded));
               }));
-        return Jest.test("decode 둘", (function (param) {
-                      var variantDecoded = Variants.t_decode("둘");
-                      return Jest.Expect.toEqual({
-                                  TAG: /* Ok */0,
-                                  _0: /* Two */1
-                                }, Jest.Expect.expect(variantDecoded));
-                    }));
+        Jest.test("decode 둘", (function (param) {
+                var variantDecoded = Variants.t_decode("둘");
+                return Jest.Expect.toEqual({
+                            TAG: /* Ok */0,
+                            _0: /* Two */1
+                          }, Jest.Expect.expect(variantDecoded));
+              }));
       }));
 
 Jest.describe("variants without @spice.as", (function (param) {
@@ -45,13 +45,13 @@ Jest.describe("variants without @spice.as", (function (param) {
                             _0: /* One1 */0
                           }, Jest.Expect.expect(variantDecoded));
               }));
-        return Jest.test("decode [\"Two1\"]", (function (param) {
-                      var variantDecoded = Variants.t1_decode(["Two1"]);
-                      return Jest.Expect.toEqual({
-                                  TAG: /* Ok */0,
-                                  _0: /* Two1 */1
-                                }, Jest.Expect.expect(variantDecoded));
-                    }));
+        Jest.test("decode [\"Two1\"]", (function (param) {
+                var variantDecoded = Variants.t1_decode(["Two1"]);
+                return Jest.Expect.toEqual({
+                            TAG: /* Ok */0,
+                            _0: /* Two1 */1
+                          }, Jest.Expect.expect(variantDecoded));
+              }));
       }));
 
 Jest.describe("unboxed variants with @spice.as", (function (param) {
@@ -59,13 +59,13 @@ Jest.describe("unboxed variants with @spice.as", (function (param) {
                 var variantEncoded = Variants.t2_encode(0);
                 return Jest.Expect.toEqual(0.0, Jest.Expect.expect(variantEncoded));
               }));
-        return Jest.test("decode 하나", (function (param) {
-                      var variantDecoded = Variants.t2_decode(0.0);
-                      return Jest.Expect.toEqual({
-                                  TAG: /* Ok */0,
-                                  _0: 0
-                                }, Jest.Expect.expect(variantDecoded));
-                    }));
+        Jest.test("decode 하나", (function (param) {
+                var variantDecoded = Variants.t2_decode(0.0);
+                return Jest.Expect.toEqual({
+                            TAG: /* Ok */0,
+                            _0: 0
+                          }, Jest.Expect.expect(variantDecoded));
+              }));
       }));
 
 Jest.describe("unboxed variants without @spice.as", (function (param) {
@@ -73,13 +73,13 @@ Jest.describe("unboxed variants without @spice.as", (function (param) {
                 var variantEncoded = Variants.t3_encode(0);
                 return Jest.Expect.toEqual(0.0, Jest.Expect.expect(variantEncoded));
               }));
-        return Jest.test("decode 0", (function (param) {
-                      var variantDecoded = Variants.t3_decode(0.0);
-                      return Jest.Expect.toEqual({
-                                  TAG: /* Ok */0,
-                                  _0: 0
-                                }, Jest.Expect.expect(variantDecoded));
-                    }));
+        Jest.test("decode 0", (function (param) {
+                var variantDecoded = Variants.t3_decode(0.0);
+                return Jest.Expect.toEqual({
+                            TAG: /* Ok */0,
+                            _0: 0
+                          }, Jest.Expect.expect(variantDecoded));
+              }));
       }));
 
 /*  Not a pure module */

package/test/package.json

@@ -6,7 +6,7 @@
   "devDependencies": {
     "@glennsl/bs-jest": "^0.7.0",
     "jest": "^27.3.1",
-    "rescript": "^9.1.4"
+    "rescript": "^10.0.1"
   },
   "scripts": {
     "res:build": "rescript",

package/test/src/Polyvariants.js

@@ -3,6 +3,7 @@
 
 var Spice = require("./Spice.js");
 var Js_json = require("rescript/lib/js/js_json.js");
+var Js_array = require("rescript/lib/js/js_array.js");
 var Belt_Array = require("rescript/lib/js/belt_Array.js");
 
 function t_encode(v) {
@@ -57,7 +58,7 @@ function t1_decode(v) {
   if (json_arr$1.length === 0) {
     return Spice.error(undefined, "Expected polyvariant, found empty array", v);
   }
-  var tagged = json_arr$1.map(Js_json.classify);
+  var tagged = Js_array.map(Js_json.classify, json_arr$1);
   var match = Belt_Array.getExn(tagged, 0);
   if (typeof match !== "number" && match.TAG === /* JSONString */0) {
     switch (match._0) {

package/test/src/Records.js

@@ -7,16 +7,18 @@ var Js_json = require("rescript/lib/js/js_json.js");
 var Belt_Option = require("rescript/lib/js/belt_Option.js");
 
 function t_encode(v) {
-  return Js_dict.fromArray([
-              [
-                "spice-label",
-                Spice.stringToJson(v.label)
-              ],
-              [
-                "spice-value",
-                Spice.intToJson(v.value)
-              ]
-            ]);
+  return Js_dict.fromArray(Spice.filterOptional([
+                  [
+                    "spice-label",
+                    false,
+                    Spice.stringToJson(v.label)
+                  ],
+                  [
+                    "spice-value",
+                    false,
+                    Spice.intToJson(v.value)
+                  ]
+                ]));
 }
 
 function t_decode(v) {
@@ -62,16 +64,18 @@ function t_decode(v) {
 }
 
 function t1_encode(v) {
-  return Js_dict.fromArray([
-              [
-                "label",
-                Spice.stringToJson(v.label)
-              ],
-              [
-                "value",
-                Spice.intToJson(v.value)
-              ]
-            ]);
+  return Js_dict.fromArray(Spice.filterOptional([
+                  [
+                    "label",
+                    false,
+                    Spice.stringToJson(v.label)
+                  ],
+                  [
+                    "value",
+                    false,
+                    Spice.intToJson(v.value)
+                  ]
+                ]));
 }
 
 function t1_decode(v) {
@@ -116,8 +120,67 @@ function t1_decode(v) {
         };
 }
 
+function tOp_encode(v) {
+  return Js_dict.fromArray(Spice.filterOptional([
+                  [
+                    "label",
+                    false,
+                    Spice.optionToJson(Spice.stringToJson, v.label)
+                  ],
+                  [
+                    "value",
+                    true,
+                    Spice.optionToJson(Spice.intToJson, v.value)
+                  ]
+                ]));
+}
+
+function tOp_decode(v) {
+  var dict = Js_json.classify(v);
+  if (typeof dict === "number") {
+    return Spice.error(undefined, "Not an object", v);
+  }
+  if (dict.TAG !== /* JSONObject */2) {
+    return Spice.error(undefined, "Not an object", v);
+  }
+  var dict$1 = dict._0;
+  var label = Spice.optionFromJson(Spice.stringFromJson, Belt_Option.getWithDefault(Js_dict.get(dict$1, "label"), null));
+  if (label.TAG === /* Ok */0) {
+    var value = Spice.optionFromJson(Spice.intFromJson, Belt_Option.getWithDefault(Js_dict.get(dict$1, "value"), null));
+    if (value.TAG === /* Ok */0) {
+      return {
+              TAG: /* Ok */0,
+              _0: {
+                label: label._0,
+                value: value._0
+              }
+            };
+    }
+    var e = value._0;
+    return {
+            TAG: /* Error */1,
+            _0: {
+              path: ".value" + e.path,
+              message: e.message,
+              value: e.value
+            }
+          };
+  }
+  var e$1 = label._0;
+  return {
+          TAG: /* Error */1,
+          _0: {
+            path: ".label" + e$1.path,
+            message: e$1.message,
+            value: e$1.value
+          }
+        };
+}
+
 exports.t_encode = t_encode;
 exports.t_decode = t_decode;
 exports.t1_encode = t1_encode;
 exports.t1_decode = t1_decode;
+exports.tOp_encode = tOp_encode;
+exports.tOp_decode = tOp_decode;
 /* No side effect */

package/test/src/Records.res

@@ -9,3 +9,9 @@ type t1 = {
   label: string,
   value: int,
 }
+
+@spice
+type tOp = {
+  label: option<string>,
+  value?: int,
+}

package/test/src/Records.resi

@@ -9,3 +9,9 @@ type t1 = {
   label: string,
   value: int,
 }
+
+@spice
+type tOp = {
+  label: option<string>,
+  value?: int,
+}

package/test/src/Spice.js

@@ -6,6 +6,8 @@ var Curry = require("rescript/lib/js/curry.js");
 var Js_dict = require("rescript/lib/js/js_dict.js");
 var Js_json = require("rescript/lib/js/js_json.js");
 var Js_math = require("rescript/lib/js/js_math.js");
+var Caml_obj = require("rescript/lib/js/caml_obj.js");
+var Js_array = require("rescript/lib/js/js_array.js");
 var Belt_Array = require("rescript/lib/js/belt_Array.js");
 var Caml_int64 = require("rescript/lib/js/caml_int64.js");
 var Belt_Result = require("rescript/lib/js/belt_Result.js");
@@ -166,14 +168,12 @@ function unitFromJson(param) {
         };
 }
 
-function arrayToJson(encoder, arr) {
-  return arr.map(Curry.__1(encoder));
-}
+var arrayToJson = Js_array.map;
 
 function arrayFromJson(decoder, json) {
   var arr = Js_json.decodeArray(json);
   if (arr !== undefined) {
-    return arr.reduce((function (acc, jsonI, i) {
+    return Js_array.reducei((function (acc, jsonI, i) {
                   var match = Curry._1(decoder, jsonI);
                   if (acc.TAG !== /* Ok */0) {
                     return acc;
@@ -181,7 +181,7 @@ function arrayFromJson(decoder, json) {
                   if (match.TAG === /* Ok */0) {
                     return {
                             TAG: /* Ok */0,
-                            _0: acc._0.concat([match._0])
+                            _0: Js_array.concat([match._0], acc._0)
                           };
                   }
                   var error = match._0;
@@ -196,7 +196,7 @@ function arrayFromJson(decoder, json) {
                 }), {
                 TAG: /* Ok */0,
                 _0: []
-              });
+              }, arr);
   } else {
     return {
             TAG: /* Error */1,
@@ -211,7 +211,7 @@ function arrayFromJson(decoder, json) {
 
 function listToJson(encoder, list) {
   var arr = $$Array.of_list(list);
-  return arr.map(Curry.__1(encoder));
+  return Js_array.map(encoder, arr);
 }
 
 function listFromJson(decoder, json) {
@@ -227,6 +227,18 @@ function optionToJson(encoder, opt) {
   }
 }
 
+function filterOptional(arr) {
+  var __x = Belt_Array.keep(arr, (function (param) {
+          return !(param[1] && Caml_obj.equal(param[2], null));
+        }));
+  return Belt_Array.map(__x, (function (param) {
+                return [
+                        param[0],
+                        param[2]
+                      ];
+              }));
+}
+
 function optionFromJson(decoder, json) {
   var match = Js_json.decodeNull(json);
   if (match !== undefined) {
@@ -426,6 +438,7 @@ exports.arrayFromJson = arrayFromJson;
 exports.listToJson = listToJson;
 exports.listFromJson = listFromJson;
 exports.optionToJson = optionToJson;
+exports.filterOptional = filterOptional;
 exports.optionFromJson = optionFromJson;
 exports.resultToJson = resultToJson;
 exports.resultFromJson = resultFromJson;

package/test/src/Variants.js

@@ -3,6 +3,7 @@
 
 var Spice = require("./Spice.js");
 var Js_json = require("rescript/lib/js/js_json.js");
+var Js_array = require("rescript/lib/js/js_array.js");
 var Belt_Array = require("rescript/lib/js/belt_Array.js");
 var Belt_Result = require("rescript/lib/js/belt_Result.js");
 
@@ -58,7 +59,7 @@ function t1_decode(v) {
   if (json_arr$1.length === 0) {
     return Spice.error(undefined, "Expected variant, found empty array", v);
   }
-  var tagged = json_arr$1.map(Js_json.classify);
+  var tagged = Js_array.map(Js_json.classify, json_arr$1);
   var match = Belt_Array.getExn(tagged, 0);
   if (typeof match !== "number" && match.TAG === /* JSONString */0) {
     switch (match._0) {

package/test/yarn.lock

@@ -3466,10 +3466,10 @@ require-main-filename@^2.0.0:
   resolved "https://registry.yarnpkg.com/require-main-filename/-/require-main-filename-2.0.0.tgz#d0b329ecc7cc0f61649f62215be69af54aa8989b"
   integrity sha512-NKN5kMDylKuldxYLSUfrbo5Tuzh4hd+2E8NPPX02mZtn1VuREQToYe/ZdlJy+J3uCpfaiGF05e7B8W0iXbQHmg==
 
-rescript@^9.1.4:
-  version "9.1.4"
-  resolved "https://registry.yarnpkg.com/rescript/-/rescript-9.1.4.tgz#1eb126f98d6c16942c0bf0df67c050198e580515"
-  integrity sha512-aXANK4IqecJzdnDpJUsU6pxMViCR5ogAxzuqS0mOr8TloMnzAjJFu63fjD6LCkWrKAhlMkFFzQvVQYaAaVkFXw==
+rescript@^10.0.1:
+  version "10.0.1"
+  resolved "https://registry.yarnpkg.com/rescript/-/rescript-10.0.1.tgz#5b2da8a8bcfb994bed1eb24820bf10cfb9d8c440"
+  integrity sha512-XwO1GPDtoEU4H03xQE5bp0/qtSVR6YLaJRPxWKrfFgKc+LI36ODOCie7o9UJfgzQdoMYkkZyiTGZ4N9OQEaiUw==
 
 resolve-cwd@^3.0.0:
   version "3.0.0"

package/src/ppx_spice.install

@@ -1,43 +0,0 @@
-lib: [
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/META"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/dune-package"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/opam"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/polyvariants.ml"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice.a"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice.cma"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice.cmi"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice.cmt"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice.cmx"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice.cmxa"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice.ml"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__.cmi"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__.cmt"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__.cmx"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__.ml"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Polyvariants.cmi"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Polyvariants.cmt"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Polyvariants.cmx"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Signature.cmi"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Signature.cmt"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Signature.cmx"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Structure.cmi"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Structure.cmt"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Structure.cmx"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Utils.cmi"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Utils.cmt"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Utils.cmx"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Variants.cmi"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Variants.cmt"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice__Variants.cmx"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/signature.ml"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/structure.ml"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/utils.ml"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/variants.ml"
-]
-libexec: [
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx.exe"
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/lib/ppx_spice/ppx_spice.cmxs"
-]
-bin: [
-  "/Users/woonki/Documents/projects/ppx_spice/src/_esy/default/store/b/ppx__spice-dc255e86/install/default/bin/ppx_spice"
-]