Persist variables to file (~/.whenjobs/variables).

[whenjobs.git] / daemon / whenjobsd.ml

diff --git a/daemon/whenjobsd.ml b/daemon/whenjobsd.ml
index 647c7f2..4846279 100644 (file)
--- a/daemon/whenjobsd.ml
+++ b/daemon/whenjobsd.ml
@@ -123,14 +123,11 @@ Options:
   );
 
   (* Start syslog. *)
-  Syslog.notice "daemon started: version=%s uid=%d home=%s"
-    Config.package_version euid home;
-
-  (* If there is a jobs.cmo file, load it. *)
-  let () =
-    let file = sprintf "%s/jobs.cmo" jobsdir in
-    if Sys.file_exists file then
-      try Daemon.reload_files () with Failure _ -> () in
+  Syslog.notice "daemon started: version=%s uid=%d home=%s native=%b"
+    Config.package_version euid home Dynlink.is_native;
+
+  (* If there is a jobs__*.cmo/jobs__*.cmxs file, load it. *)
+  (try Daemon.reload_files () with Failure _ -> ());
 
   (* Go into main loop. *)
   Daemon.main_loop ()