Module Common.Url

module Url: sig .. end

type debtypes = [ `Deb | `DebSrc | `Edsp ] 
type rpmtypes = [ `Hdlist | `Synthesis ] 
type othertypes = [ `Csw | `Opam | `Pef ] 
type filetypes = [ `Csw | `Cudf | `Deb | `DebSrc | `Edsp | `Hdlist | `Opam | `Pef | `Synthesis ] 
val supported_input_types : filetypes list
type url = {
   scheme : filetypes;
   path : string; (*
db name or filename
*)
}
val of_string : string -> url
exception Invalid_url of string
val to_string : url -> string
val scheme_to_string : filetypes -> string
val scheme_of_string : string -> filetypes