me
/
guix
Archived
1
0
Fork 0
Code

services: ipfs: Adjust for Shepherd 0.9. 

This is a followup to e1f0c88ea2.

* gnu/services/networking.scm (%ipfs-activation)[shepherd&co]: New
variable.
[container-gexp]: Use it.
master
Ludovic Courtès 2022-04-16 22:27:13 +02:00
parent f2239f3b95
commit 6b677f4299
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/services/networking.scm
View File

@ -2074,12 +2074,19 @@ See yggdrasil -genconf for config options.")
#$@(map (cute apply set-config!-gexp <>) settings))) #$@(map (cute apply set-config!-gexp <>) settings)))
(define inner-script (define inner-script
(program-file "ipfs-activation-inner" inner-gexp)) (program-file "ipfs-activation-inner" inner-gexp))
(define shepherd&co
;; 'make-forkexec-constructor/container' needs version 0.9 for
;; #:supplementary-groups.
(cons shepherd-0.9
(list (lookup-package-input shepherd-0.9 "guile-fibers"))))
;; Run ipfs init and ipfs config from a container, ;; Run ipfs init and ipfs config from a container,
;; in case the IPFS daemon was compromised at some point ;; in case the IPFS daemon was compromised at some point
;; and ~/.ipfs is now a symlink to somewhere outside ;; and ~/.ipfs is now a symlink to somewhere outside
;; %ipfs-home. ;; %ipfs-home.
(define container-gexp (define container-gexp
(with-extensions (list shepherd) (with-extensions shepherd&co
(with-imported-modules (source-module-closure (with-imported-modules (source-module-closure
'((gnu build shepherd) '((gnu build shepherd)
(gnu system file-systems))) (gnu system file-systems)))