From e78abc9e04bebe470f1baaccbfe88f9399b091c8 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 24 Feb 2022 17:19:56 +0530 Subject: forge: Add this-record accessors. These this-record accessors will be required in thunked fields. * forge/forge.scm (): Add this-forge-project-configuration accessor and export it. Use it instead of this-record in the default value of the ci-jobs-trigger field. * forge/laminar.scm (): Add this-forge-laminar-job accessor and export it. --- forge/forge.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'forge/forge.scm') 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 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))) -- cgit v1.2.3