Module Release

module Release: sig .. end

Representation of a debian release files

type release = {

	`fname : string;`
	`origin : string;`
	`label : string;`
	`suite : string;`
	`version : string;`
	`codename : string;`
	`date : string;`
	`architecture : string;`
	`component : string;`
	`notauto : bool;`
	`autoup : bool;`
	`description : string;`
	`md5sums : (string * string * string) list;`
	`sha1 : (string * string * string) list;`
	`sha256 : (string * string * string) list;`

}

val default_release : release

val parse_release_stanza : string ->
       (string * ((Lexing.position * Lexing.position) * string)) list ->
       release

val release_parser : ('a -> (string * (Format822.loc * string)) list -> 'b) ->
       'a -> Format822.deb_parser -> 'b option

val parse_release_in : string -> IO.input -> release option