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