kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

import/cran: description->package: Use COND and computed booleans.

Browse Source 
* guix/import/cran.scm (description->package): Use COND with previously
computed booleans instead of using CASE on REPOSITORY.
This commit is contained in:
Ricardo Wurmus 2022-08-12 19:59:50 +02:00
parent 8c620a6036
commit ec92bcaadd
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 31 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
guix/import/cran.scm
View File

@ -516,10 +516,10 @@ from the alist META, which was derived from the R package's DESCRIPTION file."
(package
`(package
(name ,(cran-guix-name name))
(version ,(case repository
((git)
(version ,(cond
(git?
`(git-version ,version revision commit))
((hg)
(hg?
`(string-append ,version "-" revision "." changeset))
(else version)))
(source (origin
@ -527,12 +527,12 @@ from the alist META, which was derived from the R package's DESCRIPTION file."
(git? 'git-fetch)
(hg? 'hg-fetch)
(else 'url-fetch)))
(uri ,(case repository
((git)
(uri ,(cond
(git?
`(git-reference
(url ,(assoc-ref meta 'git))
(commit commit)))
((hg)
(hg?
`(hg-reference
(url ,(assoc-ref meta 'hg))
(changeset changeset)))
@ -576,12 +576,12 @@ from the alist META, which was derived from the R package's DESCRIPTION file."
"")))
(license ,license))))
(values
(case repository
((git)
(cond
(git?
`(let ((commit ,(assoc-ref meta 'git-commit))
(revision "1"))
,package))
((hg)
(hg?
`(let ((changeset ,(assoc-ref meta 'hg-changeset))
(revision "1"))
,package))