let
column_by_name =
fun
table ~name
->
List
.find (
fun
c
->
c.col_name = name) table.ta_columns