Driver: Add interface to the Voodoo module

Signed-off-by: Paul-Elliot <[email protected]>

Author: panglesd

src/driver/voodoo.ml

@@ -185,6 +185,8 @@ let pp ppf v =
   List.iter (fun fp -> Format.fprintf ppf "%a\n" Fpath.pp fp) v.files;
   Format.fprintf ppf "]\n%!"
 
+let () = ignore pp
+
 let of_voodoo pkg_name blessed =
   let contents =
     Bos.OS.Dir.fold_contents ~dotfiles:true

src/driver/voodoo.mli

@@ -0,0 +1,4 @@
+val find_universe_and_version :
+  string -> (string * string, [> `Msg of string ]) result
+
+val of_voodoo : string -> bool -> Packages.set