summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludovic.courtes@inria.fr>2021-11-15 17:23:08 +0100
committerLudovic Courtès <ludo@gnu.org>2021-11-15 17:55:50 +0100
commit21332f3b8cb8f407a89cdfe7d0460a9947675872 (patch)
tree92614af234e86663e8b2fe76e534d37b05848635 /gnu
parent782e9975dc11e614fe38f9899806b968f9cd7d70 (diff)
gnu: hpcguix-web: Update to 0.2.0.
* gnu/packages/web.scm (hpcguix-web): Update to 0.2.0. [arguments]: In 'wrap-program' phase, add guile-zlib to DEPS. [native-inputs]: Add GUILE. [inputs]: Add GUILE-ZLIB, GUILE-COMMONMARK, and GUILE-JSON. [propagated-inputs]: Remove. These were pointless. * gnu/services/web.scm (<hpcguix-web-configuration>)[address, port]: New fields. * doc/guix.texi (Web Services): Document them. * gnu/tests/web.scm (%hpcguix-web-os): Add 'address'.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/web.scm17
-rw-r--r--gnu/services/web.scm10
-rw-r--r--gnu/tests/web.scm5
3 files changed, 21 insertions, 11 deletions
diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index a4c47f92d8..9cdbc31459 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -7668,7 +7668,7 @@ compressed JSON header blocks.
(define-public hpcguix-web
(package
(name "hpcguix-web")
- (version "0.1.0")
+ (version "0.2.0")
(source (origin
(method git-fetch)
(uri (git-reference
@@ -7677,7 +7677,7 @@ compressed JSON header blocks.
(file-name (git-file-name name version))
(sha256
(base32
- "02lz5k1hhkwfz3nr3lsd69icsz6n0q82z047d3svi09qpxw6y0cj"))))
+ "1l856d1vr63ns1sp9fm6v97p71mx00769k6lwzqzppsb9clksnwp"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build gnu-build-system)
@@ -7701,9 +7701,10 @@ compressed JSON header blocks.
(git (assoc-ref inputs "guile-git"))
(bs (assoc-ref inputs "guile-bytestructures"))
(json (assoc-ref inputs "guile-json"))
+ (zlib (assoc-ref inputs "guile-zlib"))
(guile-cm (assoc-ref inputs
"guile-commonmark"))
- (deps (list guile gcrypt git bs guile-cm guix json))
+ (deps (list guile gcrypt git bs zlib guile-cm guix json))
(effective
(read-line
(open-pipe* OPEN_READ
@@ -7728,15 +7729,15 @@ compressed JSON header blocks.
`(("autoconf" ,autoconf)
("automake" ,automake)
("uglify-js" ,uglify-js)
- ("pkg-config" ,pkg-config)))
+ ("pkg-config" ,pkg-config)
+ ("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))))
(inputs
`(("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))
("guix" ,guix)
- ("bash-minimal" ,bash-minimal))) ;for 'wrap-program'
- (propagated-inputs
- `(("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))
+ ("guile-zlib" ,guile-zlib)
("guile-commonmark" ,guile-commonmark)
- ("guile-json" ,guile-json-4)))
+ ("guile-json" ,guile-json-4)
+ ("bash-minimal" ,bash-minimal)))
(home-page "https://github.com/UMCUGenetics/hpcguix-web")
(synopsis "Web interface for cluster deployments of Guix")
(description "Hpcguix-web provides a web interface to the list of packages
diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index bb42eacf83..f1c3a2f75e 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -1110,7 +1110,9 @@ a webserver.")
(package hpcguix-web-package (default hpcguix-web)) ;<package>
;; Specs is gexp of hpcguix-web configuration file
- (specs hpcguix-web-configuration-specs))
+ (specs hpcguix-web-configuration-specs)
+ (address hpcguix-web-configuration-address (default "127.0.0.1"))
+ (port hpcguix-web-configuration-port (default 5000)))
(define %hpcguix-web-accounts
(list (user-group
@@ -1163,6 +1165,12 @@ a webserver.")
(requirement '(networking))
(start #~(make-forkexec-constructor
(list #$(file-append hpcguix-web "/bin/hpcguix-web")
+ (string-append "--listen="
+ #$(hpcguix-web-configuration-address
+ config))
+ "-p"
+ #$(number->string
+ (hpcguix-web-configuration-port config))
(string-append "--config="
#$(scheme-file "hpcguix-web.scm" specs)))
#:user "hpcguix-web"
diff --git a/gnu/tests/web.scm b/gnu/tests/web.scm
index 518c9c1ff3..ccb2f53137 100644
--- a/gnu/tests/web.scm
+++ b/gnu/tests/web.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2017, 2020 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2017, 2020-2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017, 2019 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
@@ -438,7 +438,8 @@ HTTP-PORT, along with php-fpm."
(service dhcp-client-service-type)
(service hpcguix-web-service-type
(hpcguix-web-configuration
- (specs %hpcguix-web-specs)))))
+ (specs %hpcguix-web-specs)
+ (address "0.0.0.0")))))
(define %test-hpcguix-web
(system-test