summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-04-14 15:19:51 +0200
committerLudovic Courtès <ludo@gnu.org>2020-04-14 16:01:05 +0200
commit1ae7a9251b282a5f5e73a754dbc3b8bd4fe1da74 (patch)
treebe5bfea7c95240acee7ea6250aa0c3b614d90d22
parentbab1f340b35078dcfd3cbac67ad56393b53bb46b (diff)
downloadpatches-1ae7a9251b282a5f5e73a754dbc3b8bd4fe1da74.tar
patches-1ae7a9251b282a5f5e73a754dbc3b8bd4fe1da74.tar.gz
weather: Delete duplicate entries coming from '--manifest'.
* guix/scripts/weather.scm (load-manifest): Call 'delete-duplicates'.
-rw-r--r--guix/scripts/weather.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/scripts/weather.scm b/guix/scripts/weather.scm
index eb76771452..475d989357 100644
--- a/guix/scripts/weather.scm
+++ b/guix/scripts/weather.scm
@@ -339,8 +339,9 @@ Report the availability of substitutes.\n"))
"Load the manifest from FILE and return the list of packages it refers to."
(let* ((user-module (make-user-module '((guix profiles) (gnu))))
(manifest (load* file user-module)))
- (map manifest-entry-item
- (manifest-transitive-entries manifest))))
+ (delete-duplicates (map manifest-entry-item
+ (manifest-transitive-entries manifest))
+ eq?)))
;;;