Module Header.Accept type t = (Mime_type.t * float option * (string * string) list) listval parse : string list -> t