fix graphql query for global slot since genesis

MinaProtocol · Jul 4, 2024 · dc7bee4 · dc7bee4
1 parent 0615bf0
commit dc7bee4
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 9 deletions.
diff --git a/src/lib/mina_graphql/mina_graphql.ml b/src/lib/mina_graphql/mina_graphql.ml
@@ -2430,9 +2430,9 @@ module Queries = struct
         in
         let block = Transition_frontier.Breadcrumb.block breadcrumb in
         let blockchain_length = Mina_block.blockchain_length block in
-        let global_slot =
+        let global_slot_since_genesis =
           Mina_block.consensus_state block
-          |> Consensus.Data.Consensus_state.curr_global_slot
+          |> Consensus.Data.Consensus_state.global_slot_since_genesis
         in
         let staged_ledger =
           Transition_frontier.Breadcrumb.staged_ledger breadcrumb
@@ -2465,10 +2465,10 @@ module Queries = struct
           get_epoch_ledgers ~mina breadcrumb
         in
         let%bind new_config =
-          Runtime_config.make_fork_config ~staged_ledger ~global_slot
-            ~state_hash ~staking_ledger ~staking_epoch_seed
-            ~next_epoch_ledger:(Some next_epoch_ledger) ~next_epoch_seed
-            ~blockchain_length
+          Runtime_config.make_fork_config ~staged_ledger
+            ~global_slot_since_genesis ~state_hash ~staking_ledger
+            ~staking_epoch_seed ~next_epoch_ledger:(Some next_epoch_ledger)
+            ~next_epoch_seed ~blockchain_length
         in
         let%map () =
           let open Async.Deferred.Infix in

diff --git a/src/lib/runtime_config/runtime_config.ml b/src/lib/runtime_config/runtime_config.ml
@@ -1513,11 +1513,12 @@ let ledger_of_accounts accounts =
     ; add_genesis_winner = Some false
     }
 
-let make_fork_config ~staged_ledger ~global_slot ~state_hash ~blockchain_length
-    ~staking_ledger ~staking_epoch_seed ~next_epoch_ledger ~next_epoch_seed =
+let make_fork_config ~staged_ledger ~global_slot_since_genesis ~state_hash
+    ~blockchain_length ~staking_ledger ~staking_epoch_seed ~next_epoch_ledger
+    ~next_epoch_seed =
   let open Async.Deferred.Result.Let_syntax in
   let global_slot_since_genesis =
-    Mina_numbers.Global_slot_since_hard_fork.to_int global_slot
+    Mina_numbers.Global_slot_since_genesis.to_int global_slot_since_genesis
   in
   let blockchain_length = Unsigned.UInt32.to_int blockchain_length in
   let yield () =