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