From 05cac2662459a9432e4ab441069629ffea27a392 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 24 Feb 2022 17:25:08 +0530
Subject: forge: Export record type predicates.

Predicates are also a part of the public interface of a record type
and are sometimes required.

* forge/forge.scm: Export predicates forge-configuration?,
forge-project-configuration? and forge-derivation-job?.
* forge/laminar.scm: Export predicate forge-laminar-configuration?.
---
 forge/forge.scm   | 3 +++
 forge/laminar.scm | 1 +
 2 files changed, 4 insertions(+)

(limited to 'forge')

diff --git a/forge/forge.scm b/forge/forge.scm
index fa6be5e..71af1ad 100644
--- a/forge/forge.scm
+++ b/forge/forge.scm
@@ -38,9 +38,11 @@
   #:use-module (forge webhook)
   #:export (forge-service-type
             forge-configuration
+            forge-configuration?
             forge-configuration-guix-daemon-uri
             forge-configuration-projects
             forge-project-configuration
+            forge-project-configuration?
             this-forge-project-configuration
             forge-project-configuration-name
             forge-project-configuration-user
@@ -50,6 +52,7 @@
             forge-project-configuration-ci-jobs
             forge-project-configuration-ci-jobs-trigger
             forge-derivation-job
+            forge-derivation-job?
             forge-derivation-job-name
             forge-derivation-job-run
             forge-derivation-job-after))
diff --git a/forge/laminar.scm b/forge/laminar.scm
index 262bbd1..8704d39 100644
--- a/forge/laminar.scm
+++ b/forge/laminar.scm
@@ -24,6 +24,7 @@
   #:use-module (guix records)
   #:export (forge-laminar-service-type
             forge-laminar-configuration
+            forge-laminar-configuration?
             forge-laminar-configuration-state-directory
             forge-laminar-configuration-jobs
             forge-laminar-job
-- 
cgit v1.2.3