gnu: policycoreutils: Remove input labels. - guix

diff options

author	Marius Bakke <marius@gnu.org>	2022-08-13 14:00:06 +0200
committer	Marius Bakke <marius@gnu.org>	2022-08-13 19:24:35 +0200
commit	c6e3f4eb5adaab3701d42dbc4df88b7179a3b07a (patch)
tree	e6d36e425facdc9f84dcba827d732ee596e1fd2e /tests/records.scm
parent	46bb84bb577711140c31fedebd3a01920a5c331f (diff)
download	guix-c6e3f4eb5adaab3701d42dbc4df88b7179a3b07a.tar.gz guix-c6e3f4eb5adaab3701d42dbc4df88b7179a3b07a.zip

gnu: policycoreutils: Remove input labels.

* gnu/packages/selinux.scm (policycoreutils)[native-inputs, inputs]: Remove labels.

Diffstat (limited to 'tests/records.scm')

0 files changed, 0 insertions, 0 deletions

irectory. This is similar to what 'compiled-file-name' in (system base compile) does." (let loop ((file file)) (let ((target (false-if-exception (readlink file)))) (if target (loop target) (format #f ".cache/guile/ccache/~a-~a-~a-~a/~a" (effective-version) (if (eq? (native-endianness) (endianness little)) "LE" "BE") (sizeof '*) (effective-version) file))))) (define (compile-to-cache file) "Compile FILE to the cache." (let ((compiled-file (cache-compiled-file-name file))) (mkdir-p (dirname compiled-file)) (compile-file file #:opts %auto-compilation-options #:output-file compiled-file))) (define* (build-initrd output #:key guile init (references-graphs '()) (gzip "gzip")) "Write an initial RAM disk (initrd) to OUTPUT. The initrd starts the script at INIT, running GUILE. It contains all the items referred to by REFERENCES-GRAPHS." (mkdir "contents") ;; Copy the closures of all the items referenced in REFERENCES-GRAPHS. (populate-store references-graphs "contents" #:deduplicate? #f) (with-directory-excursion "contents" ;; Make '/init'. (symlink init "init") ;; Compile it. (compile-to-cache "init") ;; Allow Guile to find out where it is (XXX). See ;; 'guile-relocatable.patch'. (mkdir-p "proc/self") (symlink (string-append guile "/bin/guile") "proc/self/exe") (readlink "proc/self/exe") (write-cpio-archive output "." #:gzip gzip)) ;; Make sure directories are writable so we can delete files. (for-each make-file-writable (find-files "contents" (lambda (file stat) (eq? 'directory (stat:type stat))) #:directories? #t)) (delete-file-recursively "contents")) ;;; linux-initrd.scm ends here


context:
space:
mode: