ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: hpcguix-web: Provide default values.

Browse source 
* gnu/services/web.scm (<hpcguix-web-configuration>)[specs]: Default to #f.
(hpcguix-web-shepherd-service): Do not pass '--config' when SPECS is #f.
(hpcguix-web-service-type)[default-value]: New field.
* doc/guix.texi (Web Services): Adjust accordingly.
This commit is contained in:
Ludovic Courtès 2023-01-22 18:06:13 +01:00
parent e1dbac04c3
commit 6ffeef92e6
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
doc/guix.texi
View file

@ -30320,10 +30320,10 @@ The service type for @code{hpcguix-web}.
Data type for the hpcguix-web service configuration.
@table @asis
@item @code{specs}
A gexp (@pxref{G-Expressions}) specifying the hpcguix-web service
configuration as an @code{hpcguix-web-configuration} record. The main
fields of that record type are:
@item @code{specs} (default: @code{#f})
Either @code{#f} or a gexp (@pxref{G-Expressions}) specifying the
hpcguix-web service configuration as an @code{hpcguix-web-configuration}
record. The main fields of that record type are:
@table @asis
@item @code{title-prefix} (default: @code{"hpcguix | "})

15
gnu/services/web.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2015-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015-2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Nikita <nikita@n0.is>
;;; Copyright © 2016, 2017, 2018 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2017, 2018, 2019 Christopher Baines <mail@cbaines.net>
@ -1155,8 +1155,7 @@ (define-record-type* <hpcguix-web-configuration>
(package hpcguix-web-package (default hpcguix-web)) ;file-like
;; Specs is gexp of hpcguix-web configuration file
(specs hpcguix-web-configuration-specs)
(specs hpcguix-web-configuration-specs (default #f)) ;#f | gexp
(address hpcguix-web-configuration-address (default "127.0.0.1"))
(port hpcguix-web-configuration-port (default 5000)))
@ -1217,8 +1216,11 @@ (define (hpcguix-web-shepherd-service config)
"-p"
#$(number->string
(hpcguix-web-configuration-port config))
(string-append "--config="
#$(scheme-file "hpcguix-web.scm" specs)))
#$@(if specs
#~((string-append "--config="
#$(scheme-file
"hpcguix-web.scm" specs)))
#~()))
#:user "hpcguix-web"
#:group "hpcguix-web"
#:environment-variables
@ -1239,7 +1241,8 @@ (define hpcguix-web-service-type
(service-extension rottlog-service-type
(const %hpcguix-web-log-rotations))
(service-extension shepherd-root-service-type
(compose list hpcguix-web-shepherd-service))))))
(compose list hpcguix-web-shepherd-service))))
(default-value (hpcguix-web-configuration))))
;;;