normalizing snarky yojson serializers to match kimchi common

src/lib/crypto/kimchi_backend/common/dune

@@ -29,7 +29,6 @@
   base.base_internalhash_types
   ;; local libraries
   tuple_lib
-  snarky.backendless
   key_cache
   pickles_types
   hex

src/lib/crypto/kimchi_backend/dune

@@ -20,7 +20,6 @@
   kimchi_types
   pasta_bindings
   snarkette
-  snarky.backendless
   key_cache
   hex
   kimchi_backend_common

src/lib/mina_base/account_update.ml

@@ -20,19 +20,7 @@ module Authorization_kind = struct
       type t =
             Mina_wire_types.Mina_base.Account_update.Authorization_kind.V1.t =
         | Signature
-        | Proof of
-            (Field.t
-            [@version_asserted]
-            [@to_yojson fun t -> `String (Snark_params.Tick.Field.to_string t)]
-            [@of_yojson
-              function
-              | `String s ->
-                  let field = Snark_params.Tick.Field.of_string s in
-                  let s' = Snark_params.Tick.Field.to_string field in
-                  if String.equal s s' then Ok field
-                  else Error "Invalid JSON for field"
-              | _ ->
-                  Error "expected JSON string"] )
+        | Proof of (Field.t[@version_asserted])
         | None_given
       [@@deriving sexp, equal, yojson, hash, compare]
 

src/lib/mina_wire_types/snark_params.ml

@@ -1,6 +1,6 @@
 module Tick = struct
   module Field = struct
-    type t = Pasta_bindings.Fp.t
+    type t = Kimchi_pasta_basic.Fp.t
   end
 
   module Inner_curve = struct

src/lib/snark_params/snark_params.ml

@@ -183,6 +183,10 @@ module Tick = struct
     include Tick0.Field
     module Bits = Bits.Make_field (Tick0.Field) (Tick0.Bigint)
 
+    let to_yojson = Kimchi_pasta_basic.Fp.to_yojson
+
+    let of_yojson = Kimchi_pasta_basic.Fp.of_yojson
+
     let size_in_triples = Int.((size_in_bits + 2) / 3)
   end