weather: Don't look for exported package replacements twice.
* guix/scripts/weather.scm (all-packages): Delete duplicates, so that exported replacements aren't included twice.
This commit is contained in:
		
							parent
							
								
									e53d8a84c6
								
							
						
					
					
						commit
						9540323458
					
				
					 1 changed files with 11 additions and 9 deletions
				
			
		| 
						 | 
					@ -54,6 +54,7 @@
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(define (all-packages)
 | 
					(define (all-packages)
 | 
				
			||||||
  "Return the list of public packages we are going to query."
 | 
					  "Return the list of public packages we are going to query."
 | 
				
			||||||
 | 
					  (delete-duplicates
 | 
				
			||||||
   (fold-packages (lambda (package result)
 | 
					   (fold-packages (lambda (package result)
 | 
				
			||||||
                    (match (package-replacement package)
 | 
					                    (match (package-replacement package)
 | 
				
			||||||
                      ((? package? replacement)
 | 
					                      ((? package? replacement)
 | 
				
			||||||
| 
						 | 
					@ -63,7 +64,8 @@
 | 
				
			||||||
                  '()
 | 
					                  '()
 | 
				
			||||||
 | 
					
 | 
				
			||||||
                  ;; Dismiss deprecated packages but keep hidden packages.
 | 
					                  ;; Dismiss deprecated packages but keep hidden packages.
 | 
				
			||||||
                 #:select? (negate package-superseded)))
 | 
					                  #:select? (negate package-superseded))
 | 
				
			||||||
 | 
					   eq?))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(define (call-with-progress-reporter reporter proc)
 | 
					(define (call-with-progress-reporter reporter proc)
 | 
				
			||||||
  "This is a variant of 'call-with-progress-reporter' that works with monadic
 | 
					  "This is a variant of 'call-with-progress-reporter' that works with monadic
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue