@greenlabs/ppx-spice 0.1.6-rc3 → 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,10 +3,11 @@
 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
 
-> 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 (polymorphic) variant of its own.
+- 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.
 
 ## Motivation
 
@@ -14,6 +15,61 @@ A ReScript PPX, which generates JSON (de)serializers.
 
 To parse the JSON data, [Decco](https://github.com/reasonml-labs/decco) is being heavily used in many projects. But, there's a restriction to parse the JSON string into a (polymorphic) variant with the Decco. The JSON data should be formed in an array. It is obvious at some point. But generally, we face the string data which needs to be parsed into the variant in most use cases.
 
+Whenever it is needed to parse the response in Json, the custom encoder/decoder functions are needed to parse the Json string into the (polymorphic) variant with Decco. But you don't need to write it with the Spice as long as you add `@spice.as` in (polymorphic) variants.
+
+with Decco
+
+```rescript
+@decco
+type status = WAITING | PROCESSING | SUCCESS | FAIL
+
+let encoderStatus = v =>
+  switch v {
+  | WAITING => "waiting"
+  | PROCESSING => "processing"
+  | SUCCESS => "success"
+  | FAIL => "fail"
+  }->Js.Json.string
+
+let decoderStatus = json => {
+  switch json |> Js.Json.classify {
+  | Js.Json.JSONString(str) =>
+    switch str {
+    | "waiting" => WAITING->Ok
+    | "processing" => PROCESSING->Ok
+    | "success" => SUCCESS->Ok
+    | "fail" => FAIL->Ok
+    | _ => Error({Decco.path: "", message: "Expected JSONString", value: json})
+    }
+  | _ => Error({Decco.path: "", message: "Expected JSONString", value: json})
+  }
+}
+
+let codecStatus: Decco.codec<status> = (encoderStatus, decoderStatus)
+
+
+@decco
+type data = {
+  status: @decco.codec(codecStatus) status,
+}
+```
+
+with Spice
+
+```rescript
+@spice
+type status =
+  | @spice.as("waiting") WAITING
+  | @spice.as("processing") PROCESSING
+  | @spice.as("success") SUCCESS
+  | @spice.as("fail") FAIL
+
+@spice
+type data = {
+  status: status,
+}
+```
+
 2. Parse/stringify the Unicode string
 
 There are many cases to parse and stringify the string data into (polymorphic) variants. Furthermore, the Unicode string needs to be handled with a variant. Currently, pattern matching is not working for the Unicode string in ReScript, the Spice is using `if ... then ... else` to compare the Unicode string in case of adding `@spice.as` attribute.
@@ -32,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)
 ```
@@ -64,12 +120,16 @@ let decoded = sampleJson->Records.t_decode // Belt.Result.Ok(sampleRecord)
 
 ## Install
 
-```
+```sh
 yarn add -D @greenlabs/ppx-spice
 ```
 
-```
+```json
 // bsconfig.json
+
+"bs-dependencies": [
+  "@greenlabs/ppx-spice"
+],
 "ppx-flags": [
   ...,
   "@greenlabs/ppx-spice/ppx"

package/package.json

@@ -1,7 +1,7 @@
 {
   "name": "@greenlabs/ppx-spice",
-  "version": "0.1.6-rc3",
-  "description": "ReScript PPX which generate the (polymorphic) variant (de)serializer",
+  "version": "0.1.7-rc1",
+  "description": "ReScript PPX which generate JSON (de)serializer",
   "license": "MIT",
   "author": "Greenlabs Dev <developer@greenlabs.co.kr>",
   "repository": {

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"
-]