sig
type t
val open_out : ?set_type:string -> string -> Dosebase.Out.t
val close_out : Dosebase.Out.t -> unit
val add_package :
Dosebase.Out.t ->
archive:string ->
day:Lifetime.day -> (string * string * string list) list -> unit
val rebuild_index : string -> unit
end