ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-30 16:12:58 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: cpan: Remove unary 'string-append' call.

Browse source 
* guix/import/cpan.scm (package->upstream-name): Remove useless
'string-append'.
This commit is contained in:
Ludovic Courtès 2023-05-17 22:24:11 +02:00
parent 5d022d5563
commit f13e73df10
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/import/cpan.scm
View file

@ -154,7 +154,7 @@ (define (package->upstream-name package)
((? origin? origin)
(match (origin-uri origin)
((or (? string? url) (url _ ...))
(match (string-match (string-append "([^/]*)-v?[0-9\\.]+") url)
(match (string-match "([^/]*)-v?[0-9\\.]+" url)
(#f #f)
(m (match:substring m 1))))
(_ #f)))