summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <[email protected]>2024-12-30 10:40:37 +0100
committerLudovic Courtès <[email protected]>2024-12-30 11:01:54 +0100
commit4ebc1aba19d75af1b22f269f042a51513205f20c (patch)
treeafe6c3de10b0390d80b31dab3b85d5bd4d01de6b
parent13e7caf52c467d2fb0f2d59a908e2aebcd430367 (diff)
import: pypi: Preserve order of dependencies from ‘requires.txt’ and wheel.
Fixes a regression introduced in a3ffb920f14cd0d31d1e7067e11dc523fe380996 and revealed by ‘tests/pypi.scm’. * guix/import/pypi.scm (parse-requires.txt): Reverse REQUIRED-DEPS and TEST-DEPS when returning. (parse-wheel-metadata): Likewise. Change-Id: I2c374505052f0d9e46e7cc1c11d3e97ab522e068
-rw-r--r--guix/import/pypi.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/import/pypi.scm b/guix/import/pypi.scm
index 935ecd33d0..4af02dd250 100644
--- a/guix/import/pypi.scm
+++ b/guix/import/pypi.scm
@@ -283,7 +283,8 @@ satisfy."
(let ((line (read-line port)))
(cond
((eof-object? line)
- (list required-deps test-deps))
+ (list (reverse required-deps)
+ (reverse test-deps)))
((or (string-null? line) (comment? line))
(loop required-deps test-deps inside-test-section? optional?))
((section-header? line)
@@ -337,7 +338,8 @@ returned value."
(let ((line (read-line port)))
(cond
((eof-object? line)
- (list required-deps test-deps))
+ (list (reverse required-deps)
+ (reverse test-deps)))
((and (requires-dist-header? line) (not (extra? line)))
(loop (cons (specification->requirement-name
(requires-dist-value line))