diff options
author | Martin Becze <mjbecze@riseup.net> | 2020-02-04 07:18:24 -0500 |
---|---|---|
committer | Guix Patches Tester <> | 2020-02-04 12:22:09 +0000 |
commit | 4b59f5abece4d66a6ced181b89b837f9c9d358e5 (patch) | |
tree | 4b013e0e58806ab123e3200314c634e3c50b8fff /guix/import/utils.scm | |
parent | 45b2c290e20a74d032e2b1d9fcc1823f3fa00477 (diff) | |
download | patches-4b59f5abece4d66a6ced181b89b837f9c9d358e5.tar patches-4b59f5abece4d66a6ced181b89b837f9c9d358e5.tar.gz |
guix: import: utils: trim patch version from names
* guix/import/utils.scm (package->definition): trim patch version from names
* tests/crate.scm: updated the tests
Diffstat (limited to 'guix/import/utils.scm')
-rw-r--r-- | guix/import/utils.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/import/utils.scm b/guix/import/utils.scm index 518877d476..b902f008fd 100644 --- a/guix/import/utils.scm +++ b/guix/import/utils.scm @@ -273,9 +273,10 @@ package definition." ('package ('name name) ('version version) . rest) ('let _ ('package ('name name) ('version version) . rest))) - `(define-public ,(string->symbol (if append-version? - (string-append name "-" version) - version)) + `(define-public ,(string->symbol + (if append-version? + (string-append name "-" (version-major+minor version)) + version)) ,guix-package)))) (define (build-system-modules) |