CA-423213: Fix bundle URL construct

Without the host parameter, Uri.make returns `file:/path/to/file`. dnf
expects the `file:///path/to/file` variant - using the single slash
variant leads to a failure to locate the signature file.

Signed-off-by: Alex Brett <[email protected]>

Author: alexbrett

ocaml/xapi/repository.ml

@@ -169,9 +169,16 @@ let sync ~__context ~self ~token ~token_id ~username ~password =
           )
       | `bundle ->
           let uri =
-            Uri.make ~scheme:"file" ~path:!Xapi_globs.bundle_repository_dir ()
+            (* dnf requires a URI that is file:///absolute/path, using the
+             * file:/absolute/path variant will result in a failure to locate
+             * the signature file, thus the host parameter to Uri.make is
+             * required
+             *)
+            Uri.make ~scheme:"file" ~host:""
+              ~path:!Xapi_globs.bundle_repository_dir
+              ()
           in
-          (Uri.to_string uri, None, false, NoAuth, NoAuth)
+          (Uri.to_string uri None, false, NoAuth, NoAuth)
       | `remote_pool ->
           let cert = Db.Repository.get_certificate ~__context ~self in
           let repo_binary_url = Db.Repository.get_binary_url ~__context ~self in