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