diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-04-14 15:19:51 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-04-14 16:01:05 +0200 |
| commit | 1ae7a9251b282a5f5e73a754dbc3b8bd4fe1da74 (patch) | |
| tree | be5bfea7c95240acee7ea6250aa0c3b614d90d22 | |
| parent | bab1f340b35078dcfd3cbac67ad56393b53bb46b (diff) | |
weather: Delete duplicate entries coming from '--manifest'.
* guix/scripts/weather.scm (load-manifest): Call 'delete-duplicates'.
| -rw-r--r-- | guix/scripts/weather.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/scripts/weather.scm b/guix/scripts/weather.scm index eb767714527..475d9893574 100644 --- a/guix/scripts/weather.scm +++ b/guix/scripts/weather.scm | |||
| @@ -339,8 +339,9 @@ Report the availability of substitutes.\n")) | |||
| 339 | "Load the manifest from FILE and return the list of packages it refers to." | 339 | "Load the manifest from FILE and return the list of packages it refers to." |
| 340 | (let* ((user-module (make-user-module '((guix profiles) (gnu)))) | 340 | (let* ((user-module (make-user-module '((guix profiles) (gnu)))) |
| 341 | (manifest (load* file user-module))) | 341 | (manifest (load* file user-module))) |
| 342 | (map manifest-entry-item | 342 | (delete-duplicates (map manifest-entry-item |
| 343 | (manifest-transitive-entries manifest)))) | 343 | (manifest-transitive-entries manifest)) |
| 344 | eq?))) | ||
| 344 | 345 | ||
| 345 | 346 | ||
| 346 | ;;; | 347 | ;;; |