fixups

MinaProtocol · Nov 2, 2023 · 8692d18 · 8692d18
1 parent 57ce675
commit 8692d18
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 5 deletions.
diff --git a/src/app/cli/src/init/client.ml b/src/app/cli/src/init/client.ml
@@ -1041,7 +1041,17 @@ let pending_snark_work =
                               Currency.Amount.Signed.of_fee
                                 (to_signed_fee_exn fee_excess_left.sign
                                    fee_excess_left.feeMagnitude )
-                          ; supply_increase = w.supply_increase
+                          ; supply_change =
+                              (let sgn : Sgn.t =
+                                 match w.supply_change.sign with
+                                 | `PLUS ->
+                                     Pos
+                                 | `MINUS ->
+                                     Neg
+                               in
+                               Currency.Amount.Signed.create
+                                 ~magnitude:w.supply_change.amountMagnitude ~sgn
+                              )
                           ; source_first_pass_ledger_hash =
                               w.source_first_pass_ledger_hash
                           ; target_first_pass_ledger_hash =

diff --git a/src/app/cli/src/init/graphql_queries.ml b/src/app/cli/src/init/graphql_queries.ml
@@ -120,16 +120,18 @@ query pendingSnarkWork {
           feeMagnitude
         }
       }
-      supply_change: supplyChange {
-        sign
-        fee_magnitude: feeMagnitude
+      supply_change : supplyChange {
+          sign
+          amountMagnitude
       }
       work_id: workId
       }
     }
   }
 |}]
 
+module Foo = Pending_snark_work
+
 module Set_coinbase_receiver =
 [%graphql
 {|

diff --git a/src/lib/cli_lib/graphql_types.ml b/src/lib/cli_lib/graphql_types.ml
@@ -20,7 +20,7 @@ module Pending_snark_work = struct
     type t =
       { work_id : int
       ; fee_excess : Currency.Amount.Signed.t
-      ; supply_increase : Currency.Amount.t
+      ; supply_change : Currency.Amount.Signed.t
       ; source_first_pass_ledger_hash : Mina_base.Frozen_ledger_hash.t
       ; target_first_pass_ledger_hash : Mina_base.Frozen_ledger_hash.t
       ; source_second_pass_ledger_hash : Mina_base.Frozen_ledger_hash.t