diff options
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index e685615..86911df 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -499,8 +499,18 @@ WHERE job_id = $1" (let ((a-name (inferior-package-name a)) (b-name (inferior-package-name b))) (if (string=? a-name b-name) - (string<? (inferior-package-version a) - (inferior-package-version b)) + (let ((a-version (inferior-package-version a)) + (b-version (inferior-package-version b))) + (if (string=? a-version b-version) + ;; The name and version are the same, so try and pick + ;; the same package each time, by looking at the + ;; location. + (let ((a-location (inferior-package-location a)) + (b-location (inferior-package-location b))) + (< (location-line a-location) + (location-line b-location))) + (string<? (inferior-package-version a) + (inferior-package-version b)))) (string<? a-name b-name))))))) |