sig
type track = (string * string) list * string
type error =
Http of string
| Auth of string
| Adjust of string * string
| Playlist
| Empty
exception Error of Lastfm_generic.Radio_t.error
val string_of_error : Lastfm_generic.Radio_t.error -> string
val base_host : string Stdlib.ref
val get : ?timeout:float -> string -> Lastfm_generic.Radio_t.track list
val parse : string -> Lastfm_generic.login * string * string option
val init : ?timeout:float -> Lastfm_generic.login -> string
val adjust : ?timeout:float -> string -> string -> (string * string) list
val playlist : ?timeout:float -> string -> string option -> string
val tracks :
?timeout:float ->
string -> string option -> Lastfm_generic.Radio_t.track list
val clear : string -> unit
end