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 <alex.brett@citrix.com>

Author: alexbrett

ocaml/xapi/repository.ml

@@ -169,9 +169,9 @@ let sync ~__context ~self ~token ~token_id ~username ~password =
           )
       | `bundle ->
           let uri =
-            Uri.make ~scheme:"file" ~path:!Xapi_globs.bundle_repository_dir ()
+            Printf.sprintf "file://%s" !Xapi_globs.bundle_repository_dir
           in
-          (Uri.to_string uri, None, false, NoAuth, NoAuth)
+          (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