mirror of
https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git
synced 2025-05-02 23:23:03 +02:00
sssd's service + define a touch directive + removing everydefinition of touch in slurm*
This commit is contained in:
parent
dd7cfd50e4
commit
ae1c899d39
3 changed files with 214 additions and 294 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue