gnu: lxc: Use G-expressions.

* gnu/packages/virtualization.scm (lxc)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-01-16 01:00:01 +01:00
parent d6f890a471
commit b56a8afbf8
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -132,6 +132,7 @@ (define-module (gnu packages virtualization)
#:use-module (guix build-system trivial) #:use-module (guix build-system trivial)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix gexp)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
@ -1080,24 +1081,23 @@ (define-public lxc
(inputs (inputs
(list gnutls libcap libseccomp libselinux)) (list gnutls libcap libseccomp libselinux))
(arguments (arguments
`(#:configure-flags (list #:configure-flags
(list (string-append "--docdir=" (assoc-ref %outputs "out") #~(list (string-append "--docdir=" #$output "/share/doc/"
"/share/doc/" ,name "-" ,version) #$name "-" #$version)
"--sysconfdir=/etc" "--sysconfdir=/etc"
"--localstatedir=/var") "--localstatedir=/var")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (invoke "make" "install"
(bashcompdir (string-append out "/etc/bash_completion.d"))) (string-append "bashcompdir=" #$output
(invoke "make" "install" "/etc/bash_completion.d")
(string-append "bashcompdir=" bashcompdir) ;; Don't install files into /var and /etc.
;; Don't install files into /var and /etc. "LXCPATH=/tmp/var/lib/lxc"
"LXCPATH=/tmp/var/lib/lxc" "localstatedir=/tmp/var"
"localstatedir=/tmp/var" "sysconfdir=/tmp/etc"
"sysconfdir=/tmp/etc" "sysconfigdir=/tmp/etc/default"))))))
"sysconfigdir=/tmp/etc/default")))))))
(synopsis "Linux container tools") (synopsis "Linux container tools")
(home-page "https://linuxcontainers.org/") (home-page "https://linuxcontainers.org/")
(description (description