Extend the genenetwork-service-type with the mcron indexer service

Add the scheduled indexer service to the
genenetwork-service-type. This will run the indexer script every hour.

1 files changed, 8 insertions, 1 deletions

diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm
index 6c08703..5dd7b6b 100644
--- a/genenetwork/services/genenetwork.scm
+++ b/genenetwork/services/genenetwork.scm
@@ -467,6 +467,12 @@ a @code{<genenetwork-configuration>} record."
 				              (number->string gn-auth-port) ";")
                                "proxy_set_header Host $host;")))))))))
 
+(define (genenetwork-mcron-jobs config)
+  (list #~(job '(next-hour)
+               #$(program-file "build-xapian-index-cron-gexp"
+                               (build-xapian-index-cron-gexp config))
+               #:user "root")))
+
 (define genenetwork-service-type
   (service-type
    (name 'genenetwork)
@@ -479,7 +485,8 @@ a @code{<genenetwork-configuration>} record."
           (service-extension gunicorn-service-type
                              genenetwork-gunicorn-apps)
           (service-extension forge-nginx-service-type
-                             genenetwork-nginx-server-blocks)))
+                             genenetwork-nginx-server-blocks)
+          (service-extension mcron-service-type genenetwork-mcron-jobs)))
    (default-value (genenetwork-configuration))))
 
 (define (gn-uploader-activation config)