tribes/guix-tribes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make the Tribes installer source-only

Browse Source
This commit is contained in:
Steffen
2026-03-31 20:03:28 +02:00
parent 1419825ec7
commit bd704e5d9c
1 changed files with 7 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
tribes/system/installer.scm
View File

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