let query_by_name = fun db name ->
    List.find (fun q -> q.qry_name = name) db.db_queries