sssd's service + define a touch directive + removing everydefinition of touch in slurm*

This commit is contained in:
Jean-François GUILLAUME 2022-11-24 13:30:05 +01:00
parent dd7cfd50e4
commit ae1c899d39
GPG key ID: 38751DAE145EFB5A
3 changed files with 214 additions and 294 deletions

View file

@ -6,11 +6,13 @@
#:use-module (glicid packages gcc)
#:use-module (gnu packages commencement)
#:use-module (gnu packages)
#:export (latest-version)
#:export (gcc11-instead-of-gcc)
#:export (transform-package)
#:export (instead-of)
)
#:export (
latest-version
gcc11-instead-of-gcc
transform-package
instead-of
touch
))
(define (latest-version v1 v2)
(case (version-compare (package-version v1) (package-version v2))
((>) v1)
@ -31,3 +33,6 @@
(define (instead-of package-a-spec package-b)
(package-input-rewriting/spec `(
(,package-a-spec . ,(const package-b)))))
(define (touch filename)
(call-with-output-file file-name (const #t))