let set_default_options = function
|`Deb -> Some (
Deb {
Debian.Debcudf.default_options with
Debian.Debcudf.ignore_essential = true
})
|`Edsp -> Some (
Edsp {
Debian.Debcudf.default_options with
Debian.Debcudf.ignore_essential = true
})
|`Eclipse -> Some (Eclipse Debian.Debcudf.default_options)
|_ -> None