aboutsummaryrefslogtreecommitdiff
path: root/forge
diff options
context:
space:
mode:
Diffstat (limited to 'forge')
-rw-r--r--forge/forge.scm5
-rw-r--r--forge/laminar.scm2
2 files changed, 6 insertions, 1 deletions
diff --git a/forge/forge.scm b/forge/forge.scm
index fdb4377..ec64aa9 100644
--- a/forge/forge.scm
+++ b/forge/forge.scm
@@ -41,6 +41,7 @@
forge-configuration-guix-daemon-uri
forge-configuration-projects
forge-project-configuration
+ this-forge-project-configuration
forge-project-configuration-user
forge-project-configuration-repository
forge-project-configuration-repository-branch
@@ -55,6 +56,7 @@
(define-record-type* <forge-project-configuration>
forge-project-configuration make-forge-project-configuration
forge-project-configuration?
+ this-forge-project-configuration
(name forge-project-configuration-name)
;; The user field is optional because the repository may be remote
;; and not need to be owned by any user.
@@ -72,7 +74,8 @@
(ci-jobs-trigger forge-project-configuration-ci-jobs-trigger ; one of 'post-receive-hook, 'cron, 'webhook
(default (cond
;; 'post-receive-hook for local repositories
- ((string-prefix? "/" (forge-project-configuration-repository this-record))
+ ((string-prefix? "/" (forge-project-configuration-repository
+ this-forge-project-configuration))
'post-receive-hook)
;; 'cron for remote repositories
(else 'cron)))
diff --git a/forge/laminar.scm b/forge/laminar.scm
index 76e9696..262bbd1 100644
--- a/forge/laminar.scm
+++ b/forge/laminar.scm
@@ -28,6 +28,7 @@
forge-laminar-configuration-jobs
forge-laminar-job
forge-laminar-job?
+ this-forge-laminar-job
forge-laminar-job-name
forge-laminar-job-run
forge-laminar-job-after
@@ -49,6 +50,7 @@
(define-record-type* <forge-laminar-job>
forge-laminar-job make-forge-laminar-job
forge-laminar-job?
+ this-forge-laminar-job
(name forge-laminar-job-name)
(run forge-laminar-job-run)
(after forge-laminar-job-after