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 7e14487939aabcb97c5d80cf7236c97a40b98c19..db9959ab4e280fbc5fb7ca236d628c879f9a3e6d 100644 (file)
--- 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