let header_line ~version ?sort_order () = parse_header_version version >>| fun version -> {version; sort_order}