Version 0.1.0.

[guestfs-browser.git] / utils.ml

diff --git a/utils.ml b/utils.ml
index 9b6f3bd..8ad67c4 100644 (file)
--- a/utils.ml
+++ b/utils.ml
@@ -49,6 +49,14 @@ let failwith fs =
   in
   ksprintf f fs
 
+let trace = ref false
+let set_trace_flag () = trace := true
+let trace () = !trace
+
+let connect_uri = ref None
+let set_connect_uri conn = connect_uri := conn
+let connect_uri () = !connect_uri
+
 let utf8_rarrow = "\xe2\x86\x92"
 
 let human_size_1k i =