let read_deb ?filter ?(extras=[]) fname = let ch = Input.open_file fname in let l = Debian.Packages.input_raw_ch ?filter ~extras ch in let _ = Input.close_ch ch in l