let string_of_error = function
| Cannot_run_ocamlfind ->
"Cannot run Ocamlfind."
| Dependency_not_found(p, d) ->
Printf.sprintf
"Ocamlfind returned \"%s\" as a dependency for package \"%s\" but does not know this dependency." d p
| Package_not_found p ->
Printf.sprintf "Findlib package not found: \"%s\"." p
| Cannot_parse_query(p, e) ->
Printf.sprintf "Cannot parse Ocamlfind query for package \"%s\": %s" p e