vps.scm: Rename generate-logs-html -> generate-ci-html

1 files changed, 5 insertions, 5 deletions

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))))
    "</ul>"))
 
-(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))