From ca22de029eca58864765bd7d331e4618a859b5c4 Mon Sep 17 00:00:00 2001
From: Javier Chavarri <javier.chavarri@gmail.com>
Date: Thu, 7 Sep 2023 11:30:30 +0000
Subject: [PATCH] test stuff

---
 ppx/reason_react_ppx.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ppx/reason_react_ppx.ml b/ppx/reason_react_ppx.ml
index 613ccb987..1e84c8fc4 100644
--- a/ppx/reason_react_ppx.ml
+++ b/ppx/reason_react_ppx.ml
@@ -188,7 +188,7 @@ let extractChildren ?(removeLastPositionUnit = false) propsAndChildren =
 
 let unerasableIgnore loc =
   let structure_item =
-    Builder.pstr_eval ~loc
+    Builder.pstr_eval ~loc:Location.none
       (Builder.pexp_constant ~loc:Location.none
          (Pconst_string ("-16", Location.none, None)))
       []
@@ -314,7 +314,7 @@ let rec recursivelyMakeNamedArgsForExternal list args =
   match list with
   | (label, default, loc, interiorType) :: tl ->
       recursivelyMakeNamedArgsForExternal tl
-        (Builder.ptyp_arrow ~loc label
+        (Builder.ptyp_arrow ~loc:Location.none label
            (match (label, interiorType, default) with
            (* ~foo=1 *)
            | label, None, Some _ ->
@@ -1086,7 +1086,7 @@ let jsxMapper =
               if hasUnit then
                 [
                   ( Nolabel,
-                    Builder.pexp_construct ~loc { loc; txt = Lident "()" } None
+                    Builder.pexp_construct ~loc:Location.none { loc; txt = Lident "()" } None
                   );
                 ]
               else []