me
/
guix
Archived
1
0
Fork 0
Code

gnu: guix-data-service: Update to 0.0.1-19.d1c243f. 

These changes support the guix-data-service-backup-database and
guix-data-service-create-small-backup scripts. These are shell scripts, so
require coreutils from the build environment at runtime as well as binaries
from postgresql, ephemeralpg and optionally util-linux (for ionice and
renice).

* gnu/packages/web.scm (guix-data-service): Update to 0.0.1-19.d1c243f.
[arguments]: Add (ice-9 ftw) and (ice-9 match) to #:modules, change the
'install phase to wrap all bin files with some inputs as well.
[inputs]: Add util-linux, include ephemeralpg from native-inputs and switch
postgresql for postgresql-11.
[native-inputs]: Move ephemeralpg to inputs.
master
Christopher Baines 2020-03-20 21:11:04 +00:00
parent 01d5f2c5cd
commit 0a76a4e073
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 24 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
gnu/packages/web.scm
View File

@ -4382,8 +4382,8 @@ CDF, Atom 0.3, and Atom 1.0 feeds.")
(package-with-python2 python-feedparser)) (package-with-python2 python-feedparser))
(define-public guix-data-service (define-public guix-data-service
(let ((commit "18eb9dfdcb3174bfd4bab5b9089acffa13aa1214") (let ((commit "d1c243f7fd8902f359ff06fb78dce663cf4297ce")
(revision "18")) (revision "19"))
(package (package
(name "guix-data-service") (name "guix-data-service")
(version (string-append "0.0.1-" revision "." (string-take commit 7))) (version (string-append "0.0.1-" revision "." (string-take commit 7)))
@ -4395,11 +4395,13 @@ CDF, Atom 0.3, and Atom 1.0 feeds.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0lb78cqzqaz0r4sspg272w2a3yhzhqah30j0kxf0z182b0qpmp37")))) "1ji8d4vwmv7j9h7z96hvzi3zvik594yngjrdal37w13fbxy2v6sw"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:modules ((guix build utils) '(#:modules ((guix build utils)
(guix build gnu-build-system) (guix build gnu-build-system)
(ice-9 ftw)
(ice-9 match)
(ice-9 rdelim) (ice-9 rdelim)
(ice-9 popen)) (ice-9 popen))
#:test-target "check-with-tmp-database" #:test-target "check-with-tmp-database"
@ -4427,20 +4429,28 @@ CDF, Atom 0.3, and Atom 1.0 feeds.")
"/site-ccache"))) "/site-ccache")))
(for-each (for-each
(lambda (file) (lambda (file)
(simple-format (current-error-port)
"wrapping: ~A\n"
(string-append bin "/" file))
(wrap-program (string-append bin "/" file) (wrap-program (string-append bin "/" file)
`("PATH" ":" prefix `("PATH" ":" prefix
(,bin)) ,(cons*
bin
(map (lambda (input)
(string-append
(assoc-ref inputs input)
"/bin"))
'("ephemeralpg"
"util-linux"
"postgresql"))))
`("GUILE_LOAD_PATH" ":" prefix `("GUILE_LOAD_PATH" ":" prefix
(,scm ,(getenv "GUILE_LOAD_PATH"))) (,scm ,(getenv "GUILE_LOAD_PATH")))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix `("GUILE_LOAD_COMPILED_PATH" ":" prefix
(,go ,(getenv "GUILE_LOAD_COMPILED_PATH"))))) (,go ,(getenv "GUILE_LOAD_COMPILED_PATH")))))
'("guix-data-service" (scandir bin
"guix-data-service-process-branch-updated-email" (match-lambda
"guix-data-service-process-branch-updated-mbox" ((or "." "..") #f)
"guix-data-service-process-job" (_ #t))))
"guix-data-service-process-jobs"
"guix-data-service-manage-build-servers"
"guix-data-service-query-build-servers"))
#t))) #t)))
(delete 'strip)))) ; As the .go files aren't compatible (delete 'strip)))) ; As the .go files aren't compatible
(inputs (inputs
@ -4449,13 +4459,14 @@ CDF, Atom 0.3, and Atom 1.0 feeds.")
("guile-json" ,guile3.0-json) ("guile-json" ,guile3.0-json)
("guile-email" ,guile3.0-email) ("guile-email" ,guile3.0-email)
("guile-squee" ,guile3.0-squee) ("guile-squee" ,guile3.0-squee)
("postgresql" ,postgresql) ("ephemeralpg" ,ephemeralpg)
("util-linux" ,util-linux)
("postgresql" ,postgresql-11)
("sqitch" ,sqitch))) ("sqitch" ,sqitch)))
(native-inputs (native-inputs
`(("guile" ,guile-3.0) `(("guile" ,guile-3.0)
("autoconf" ,autoconf) ("autoconf" ,autoconf)
("automake" ,automake) ("automake" ,automake)
("ephemeralpg" ,ephemeralpg)
("emacs-minimal" ,emacs-minimal) ("emacs-minimal" ,emacs-minimal)
("emacs-htmlize" ,emacs-htmlize) ("emacs-htmlize" ,emacs-htmlize)
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))