Release v2.0.1

SimonDegraeve · Sep 26, 2020 · 662676c · 662676c
1 parent bafefe9
commit 662676c
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 6 deletions.
diff --git a/esy.json b/esy.json
@@ -1,6 +1,6 @@
 {
   "name": "react-intl-auto-id-ppx",
-  "version": "2.0.0",
+  "version": "2.0.1",
   "description": "Reason/OCaml PPX generating ReactIntl `id` from `defaultMessage`",
   "author": "Simon Degraeve <simon.degraeve@gmail.com>",
   "license": "MIT",

diff --git a/lib/react_intl_auto_id_ppx.re b/lib/react_intl_auto_id_ppx.re
@@ -34,7 +34,10 @@ let hasIntlAttribute = (items: structure) => {
   items
   |> List.exists(item =>
        switch (item) {
-       | {pstr_desc: Pstr_attribute(({txt: "intl.messages", _}, PStr([])))} =>
+       | {
+           pstr_desc: Pstr_attribute(({txt: "intl.messages", _}, PStr([]))),
+           _,
+         } =>
          true
        | _ => false
        }
@@ -93,8 +96,8 @@ let extractMessageFromRecord = fields => {
   |> List.iter(assoc =>
        switch (assoc) {
        | (
-           {txt: Lident(key)},
-           {pexp_desc: Pexp_constant(Pconst_string(value, _))},
+           {txt: Lident(key), _},
+           {pexp_desc: Pexp_constant(Pconst_string(value, _)), _},
          ) =>
          map := map^ |> StringMap.add(key, value)
        | _ => ()
@@ -157,9 +160,10 @@ let structure = (mapper, structure) =>
              |> List.map(valueBinding =>
                   switch (valueBinding) {
                   | {
-                      pvb_pat: {ppat_desc: Ppat_var(_)} as pattern,
+                      pvb_pat: {ppat_desc: Ppat_var(_), _} as pattern,
                       pvb_expr:
-                        {pexp_desc: Pexp_record(fields, None)} as expr,
+                        {pexp_desc: Pexp_record(fields, None), _} as expr,
+                      _,
                     } =>
                     let map = extractMessageFromRecord(fields);
                     let defaultMessage =