kevroletin

  module Pool = struct
    module TxSet = Set.Make (KEY)

    let data = ref TxSet.empty

    let add ~tx =
      match is_valid ~tx with
      | false -> ()
      | true -> data := TxSet.add tx !data