diff options
author | Ludovic Courtès <ludo@gnu.org> | 2023-05-17 22:24:11 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2023-05-31 23:25:25 +0200 |
commit | f13e73df102c6b1d429df2ac898e438ed0cd76a6 (patch) | |
tree | 40841afff3988253edd88828a19e6162201ac9ed /guix/import | |
parent | 5d022d5563f35856963e31a682d9795abca85051 (diff) | |
download | guix-patches-f13e73df102c6b1d429df2ac898e438ed0cd76a6.tar guix-patches-f13e73df102c6b1d429df2ac898e438ed0cd76a6.tar.gz |
import: cpan: Remove unary 'string-append' call.
* guix/import/cpan.scm (package->upstream-name): Remove useless
'string-append'.
Diffstat (limited to 'guix/import')
-rw-r--r-- | guix/import/cpan.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm index da47018c35..d7f300777e 100644 --- a/guix/import/cpan.scm +++ b/guix/import/cpan.scm @@ -154,7 +154,7 @@ return \"Test-Simple\"" ((? 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))) |