The Biocaml Library : Biocaml_bar.section

let section (_,secs) nm =

 match List.find ~f:(fun s -> s.sec_name = nm) secs with

 | None -> failwith (sprintf "section %s not found" nm)

 | Some s -> s