From: Wei Liu <wei.liu2@citrix.com>
Date: Mon, 13 Jun 2016 07:49:13 +0000 (+0100)
Subject: ocaml/libxs: honour XEN_RUN_STORED
X-Git-Tag: 4.8.0-rc1~713
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=0e3e7386050a101503567d083e5a0546c5488557;p=xen.git

ocaml/libxs: honour XEN_RUN_STORED

Signed-off-by: Wei Liu <wei.liu2@citrix.com>
Acked-by: David Scott <dave@recoil.org>
---

diff --git a/tools/ocaml/libs/xs/xs.ml b/tools/ocaml/libs/xs/xs.ml
index 7e14487939..db9959ab4e 100644
--- a/tools/ocaml/libs/xs/xs.ml
+++ b/tools/ocaml/libs/xs/xs.ml
@@ -147,7 +147,7 @@ let monitor_paths xsh l time callback =
 	end;
 	unwatch ()
 
-let daemon_socket = "/var/run/xenstored/socket"
+let daemon_socket = Paths.xen_run_stored ^ "/socket"
 
 (** Throws this rather than a miscellaneous Unix.connect failed *)
 exception Failed_to_connect