diff options
| author | Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de> | 2016-03-22 15:12:30 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de> | 2016-03-22 17:57:40 +0100 |
| commit | b98293ebed46086c21cdd975c4a8c6139b2edcd0 (patch) | |
| tree | 3229b08e0f7a1cce9ad657e201b2ddb0e1553494 | |
| parent | 58cc369f32d0b83d845fcf3cb2bdb5a8abdd2bb3 (diff) | |
| download | patches-b98293ebed46086c21cdd975c4a8c6139b2edcd0.tar patches-b98293ebed46086c21cdd975c4a8c6139b2edcd0.tar.gz | |
import: cran: Accept single URL in addition to single URL.
* guix/import/cran.scm (package->upstream-name): Match single URL in
addition to list of URLs.
| -rw-r--r-- | guix/import/cran.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/import/cran.scm b/guix/import/cran.scm index f36e9482cf..562917c0a0 100644 --- a/guix/import/cran.scm +++ b/guix/import/cran.scm @@ -227,7 +227,7 @@ s-expression corresponding to that package, or #f on failure." (match (package-source package) ((? origin? origin) (match (origin-uri origin) - ((url rest ...) + ((or (? string? url) (url _ ...)) (let ((end (string-rindex url #\_)) (start (string-rindex url #\/))) ;; The URL ends on |