X-Git-Url: http://git.annexia.org/?p=whenjobs.git;a=blobdiff_plain;f=tools%2Fwhenjobs.ml;h=60795ba4c7d6eb0bcc4d81fb48ee6ce1f7bffadd;hp=081064961379a5a79e83caf08803e6cc66381349;hb=65b5a307fc1c55a197ee337180842ac6885ba784;hpb=82b61d8519571f6a3feadc8575958945292c6d9f

diff --git a/tools/whenjobs.ml b/tools/whenjobs.ml
index 0810649..60795ba 100644
--- a/tools/whenjobs.ml
+++ b/tools/whenjobs.ml
@@ -296,7 +296,13 @@ and set_variable name value typ =
       ) in
 
   let client = start_client () in
-  Whenproto_clnt.When.V1.set_variable client (name, value);
+  (match Whenproto_clnt.When.V1.set_variable client (name, value) with
+  | `ok -> ()
+  | `error msg ->
+    eprintf "whenjobs: set: %s\n" msg;
+    suggest_check_server_logs ();
+    exit 1
+  );
   stop_client client
 
 and get_variable name =