Module Database.Error

type not_found_member = [
| `Root
| `Best_tip
| `Frontier_hash
| `Root_transition
| `Best_tip_transition
| `Parent_transition of Mina_base.State_hash.t
| `New_root_transition
| `Old_root_transition
| `Transition of Mina_base.State_hash.t
| `Arcs of Mina_base.State_hash.t
| `Protocol_states_for_root_scan_state
]
type not_found = [
| `Not_found of not_found_member
]
type raised = [
| `Raised of Core_kernel.Error.t
]
type t = [
| not_found
| raised
| `Invalid_version
]
val not_found_message : not_found -> string
val message : t -> string