From 04850dd0b88db87f77cef3b41a37e04ad52a66b8 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Sat, 5 Dec 2020 17:36:27 -0300 Subject: vps.scm: Rename generate-logs-html -> generate-ci-html --- sync/vps.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'sync/vps.scm') diff --git a/sync/vps.scm b/sync/vps.scm index 5ff351b..3cdf1b6 100644 --- a/sync/vps.scm +++ b/sync/vps.scm @@ -242,7 +242,7 @@ (ci-data-in-repo-notes name (string-append git-data-path "/" name)))) "")) -(define (generate-logs-html) +(define (generate-ci-html) (call-with-output-file (string-append ci-data-path "/index.html") (partial display (string-append ci-html-beginning @@ -299,15 +299,15 @@ pki " mail-domain " key \"" (tls-priv-for mail-domain) "\""))) (map #[string-append % "." tld] tls-prefixes))) -(define generate-logs-html-job +(define generate-ci-html-job #~(job "*/5 * * * *" #$(program-file - "generate-logs-html.scm" + "generate-ci-html.scm" (with-imported-modules (modules:source-module-closure '((guix build utils))) #~(begin (use-modules (guix build utils)) - (display 'generate-logs-html)))))) + (display 'generate-ci-html)))))) (operating-system (locale "en_US.UTF-8") @@ -337,7 +337,7 @@ pki " mail-domain " key \"" (tls-priv-for mail-domain) "\""))) `((,user ,(plain-file "id_rsa.pub" ssh-public-key)))))) (service mcron-service-type (mcron-configuration - (jobs (list generate-logs-html-job)))) + (jobs (list generate-ci-html-job)))) (simple-service 'automatic-mcron-restart activation-service-type (with-imported-modules '((gnu services herd)) -- cgit v1.2.3