sig
type database =
[ `Close
| `Exec of string * string list
| `Fetching_node of string
| `Load of string
| `Parsing of string ] *
[ `Exn of string | `Pointer_loop_max_depth of int ]
val database_to_string : Ketrew.Persistent_data.Error.database -> string
end