[Berkeley] Fix fork config export

src/app/runtime_genesis_ledger/runtime_genesis_ledger.ml

@@ -79,13 +79,11 @@ let is_dirty_proof = function
 
 let extract_accounts_exn = function
   | { Runtime_config.Ledger.base = Accounts accounts
+    ; num_accounts = None
     ; balances = []
+    ; hash = _
+    ; name = None
     ; add_genesis_winner = Some false
-    ; _
-    }
-  | { Runtime_config.Ledger.base = Accounts accounts
-    ; balances = []
-    ; add_genesis_winner = None
     } ->
       accounts
   | _ ->

src/lib/mina_graphql/mina_graphql.ml

@@ -2484,7 +2484,7 @@ module Queries = struct
           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
+            ~blockchain_length
         in
         let%map () =
           let open Async.Deferred.Infix in

src/lib/runtime_config/runtime_config.ml

@@ -1508,17 +1508,16 @@ let ledger_accounts (ledger : Mina_ledger.Ledger.Any_ledger.witness) =
 let ledger_of_accounts accounts =
   Ledger.
     { base = Accounts accounts
-    ; num_accounts = Some (List.length accounts)
-    ; balances = List.mapi accounts ~f:(fun i a -> (i, a.balance))
+    ; num_accounts = None
+    ; balances = []
     ; hash = None
     ; s3_data_hash = None
     ; name = None
     ; 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
-    (runtime_config : t) =
+    ~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
@@ -1533,7 +1532,10 @@ let make_fork_config ~staged_ledger ~global_slot ~state_hash ~blockchain_length
     Mina_ledger.Ledger.Any_ledger.cast (module Mina_ledger.Ledger) staged_ledger
     |> ledger_accounts
   in
-  let ledger = Option.value_exn runtime_config.ledger in
+  let hash =
+    Option.some @@ Mina_base.Ledger_hash.to_base58_check
+    @@ Mina_base.Ledger.merkle_root staged_ledger
+  in
   let fork =
     Fork_config.
       { state_hash = Mina_base.State_hash.to_base58_check state_hash
@@ -1573,7 +1575,13 @@ let make_fork_config ~staged_ledger ~global_slot ~state_hash ~blockchain_length
      startup, even though it already exists, leading to an error.*)
     ~epoch_data
     ~ledger:
-      { ledger with base = Accounts accounts; add_genesis_winner = Some false }
+      { base = Accounts accounts
+      ; num_accounts = None
+      ; balances = []
+      ; hash
+      ; name = None
+      ; add_genesis_winner = Some false
+      }
     ~proof:(Proof_keys.make ~fork ()) ()
 
 let slot_tx_end_or_default, slot_chain_end_or_default =