From bd704e5d9c1c71aca9952c1a7cac61c77147eb03 Mon Sep 17 00:00:00 2001
From: Steffen Beyer <steffen@beyer.io>
Date: Tue, 31 Mar 2026 20:03:28 +0200
Subject: [PATCH] Make the Tribes installer source-only

---
 tribes/system/installer.scm | 25 +++++++------------------
 1 file changed, 7 insertions(+), 18 deletions(-)

diff --git a/tribes/system/installer.scm b/tribes/system/installer.scm
index 14d30f0..6a805da 100644
--- a/tribes/system/installer.scm
+++ b/tribes/system/installer.scm
@@ -3,7 +3,6 @@
   #:use-module (gnu services databases)
   #:use-module (guix gexp)
   #:use-module (nbde system installed-base)
-  #:use-module (tribes packages release)
   #:use-module (tribes packages source)
   #:use-module (tribes services tribes)
   #:use-module (tribes system node)
@@ -36,27 +35,17 @@
                                             interface
                                             authorized-keys-file)
   "Return an installed NBDE operating-system extended with PostgreSQL and the
-Tribes service.  The package is provided either through TRIBES_RELEASE_DIRECTORY
-or by building from TRIBES_SOURCE_DIRECTORY."
-  (let* ((release-directory
-          (getenv "TRIBES_RELEASE_DIRECTORY"))
-         (source-directory (getenv "TRIBES_SOURCE_DIRECTORY"))
+Tribes service.  The package is built from TRIBES_SOURCE_DIRECTORY."
+  (let* ((source-directory (getenv "TRIBES_SOURCE_DIRECTORY"))
          (service-user (getenv/default "TRIBES_SERVICE_USER" "tribes"))
          (service-group (getenv/default "TRIBES_SERVICE_GROUP" service-user))
          (database-user (getenv/default "TRIBES_DATABASE_USER" service-user))
          (package
-          (cond
-           (source-directory
-            (tribes-source-package
-             (tribes-source-directory->local-file source-directory)
-             #:version (getenv/default "TRIBES_RELEASE_VERSION" "dev")))
-           (release-directory
-            (tribes-release-package
-             (local-file release-directory #:recursive? #t)
-             #:version (getenv/default "TRIBES_RELEASE_VERSION" "dev")))
-           (else
-            (error "missing Tribes package input; set TRIBES_RELEASE_DIRECTORY or "
-                   "TRIBES_SOURCE_DIRECTORY"))))
+          (if source-directory
+              (tribes-source-package
+               (tribes-source-directory->local-file source-directory)
+               #:version (getenv/default "TRIBES_RELEASE_VERSION" "dev"))
+              (error "missing Tribes source input; set TRIBES_SOURCE_DIRECTORY")))
          (tribes-config
           (tribes-configuration
            (package package)