fix: wrap fragment parse & serialize as uncurried

resolves #296

the module signature was not wrapped, and the implementation was wrapped
in another fun that prevented the match in wrap_as_uncurried_fn from
working as intended

I also fixed a warning 53 with the @@tailcall attribute I was getting
for ocaml 5.1.1, maybe I ended up with different versions of something?

re-run tests

Author: illusionalsagacity

.gitignore

@@ -2,6 +2,7 @@ _esy
 .merlin
 node_modules
 _build
+_opam
 _release
 *.byte
 *.native

snapshot_tests/operations/expected/apollo/generate/ewert_reproduction.res.txt

@@ -49,60 +49,62 @@ lastname
 
 }
 "
-  let parse = (
-    (value): t => {
-      user: {
-        let value = (value: Raw.t).user
-        (
-          {
-            id: {
-              let value = (value: Raw.t_user).id
-              value
-            },
-            firstname: {
-              let value = (value: Raw.t_user).firstname
-              switch Js.toOption(value) {
-              | Some(value) => Some(value)
-              | None => None
+  let parse = (value: Raw.t): t =>
+    (
+      {
+        user: {
+          let value = (value: Raw.t).user
+          (
+            {
+              id: {
+                let value = (value: Raw.t_user).id
+                value
+              },
+              firstname: {
+                let value = (value: Raw.t_user).firstname
+                switch Js.toOption(value) {
+                | Some(value) => Some(value)
+                | None => None
+                }
+              },
+              lastname: {
+                let value = (value: Raw.t_user).lastname
+                value
+              },
+            }: t_user
+          )
+        },
+      }: t
+    )
+  let serialize = (value: t): Raw.t =>
+    (
+      {
+        let user = {
+          let value = (value: t).user
+          (
+            {
+              let lastname = {
+                let value = (value: t_user).lastname
+                value
               }
-            },
-            lastname: {
-              let value = (value: Raw.t_user).lastname
-              value
-            },
-          }: t_user
-        )
-      },
-    }: Raw.t => t
-  )
-  let serialize = (
-    (value): Raw.t => {
-      let user = {
-        let value = (value: t).user
-        (
-          {
-            let lastname = {
-              let value = (value: t_user).lastname
-              value
-            }
-            and firstname = {
-              let value = (value: t_user).firstname
-              switch value {
-              | Some(value) => Js.Nullable.return(value)
-              | None => Js.Nullable.null
+              and firstname = {
+                let value = (value: t_user).firstname
+                switch value {
+                | Some(value) => Js.Nullable.return(value)
+                | None => Js.Nullable.null
+                }
               }
-            }
-            and id = {
-              let value = (value: t_user).id
-              value
-            }
-            {id, firstname, lastname}
-          }: Raw.t_user
-        )
-      }
-      {user: user}
-    }: t => Raw.t
-  )
+              and id = {
+                let value = (value: t_user).id
+                value
+              }
+              {id, firstname, lastname}
+            }: Raw.t_user
+          )
+        }
+        {user: user}
+      }: Raw.t
+    )
   let verifyArgsAndParse = (
     ~userId as _userId: [#NonNull_String],
     ~fragmentName as _UserData: [#UserData],