module Accept_language: sig .. end
sig
end
type t = (string * float option) list
(string * float option) list
val parse : string list -> t
string list -> t