let
index_by_name =
fun
db name
->
List
.find (
fun
i
->
i.idx_name = name) db.db_indexes