Fake_networkmodule Sync_ledger = Mina_ledger.Sync_ledgermodule type CONTEXT = sig ... endtype 'n num_peers = 'n Gadt_lib.Peano.gt_1type peer_state = {}type nonrec 'n t = {fake_gossip_network : Mina_networking.Gossip_net.Fake.network; |
peer_networks : ( peer_network, 'n ) Gadt_lib.Vect.t; |
} constraint 'n = _ num_peersmodule Generator : sig ... end