let query_by_name_opt = fun db name ->
    try Some (query_by_name db name)
    with Not_found -> None