From 114e5dfa1dada0f184a429ede5dfabbe7ba89574 Mon Sep 17 00:00:00 2001 From: Jon Ludlam Date: Thu, 16 May 2013 14:30:00 +0100 Subject: [PATCH] Move xml_http_rpc to Xcp_client Signed-off-by: Jon Ludlam --- lib/xenops_server.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/xenops_server.ml b/lib/xenops_server.ml index 76bd9f6c6..e8206058f 100644 --- a/lib/xenops_server.ml +++ b/lib/xenops_server.ml @@ -1227,7 +1227,7 @@ and perform ?subtask (op: operation) (t: Xenops_task.t) : unit = then debug "This is a localhost migration."; Xenops_hooks.vm_pre_migrate ~reason:Xenops_hooks.reason__migrate_source ~id; - let module Remote = Xenops_interface.Client(struct let rpc = xml_http_rpc ~srcstr:"xenops" ~dststr:"dst_xenops" (fun () -> url') end) in + let module Remote = Xenops_interface.Client(struct let rpc = Xcp_client.xml_http_rpc ~srcstr:"xenops" ~dststr:"dst_xenops" (fun () -> url') end) in let id = Remote.VM.import_metadata t.Xenops_task.dbg(export_metadata vdi_map vif_map id) in debug "Received id = %s" id; let memory_url = Uri.make ?scheme:(Uri.scheme url) ?host:(Uri.host url) ?port:(Uri.port url)