gnu: inxi-minimal: Reduce reliance on input names.
* gnu/packages/admin.scm (inxi-minimal)[arguments]: Use SEARCH-INPUT-FILE.
This commit is contained in:
		
							parent
							
								
									932409da9c
								
							
						
					
					
						commit
						bd268c21e5
					
				
					 1 changed files with 8 additions and 4 deletions
				
			
		| 
						 | 
					@ -4332,10 +4332,14 @@ Python loading in HPC environments.")
 | 
				
			||||||
           (use-modules (guix build utils)
 | 
					           (use-modules (guix build utils)
 | 
				
			||||||
                        (ice-9 match)
 | 
					                        (ice-9 match)
 | 
				
			||||||
                        (srfi srfi-26))
 | 
					                        (srfi srfi-26))
 | 
				
			||||||
           (setenv "PATH" (string-append
 | 
					           (setenv "PATH" (string-join
 | 
				
			||||||
                           (assoc-ref %build-inputs "bash") "/bin" ":"
 | 
					                           (map (lambda (file)
 | 
				
			||||||
                           (assoc-ref %build-inputs "gzip") "/bin" ":"
 | 
					                                  (dirname (search-input-file %build-inputs
 | 
				
			||||||
                           (assoc-ref %build-inputs "perl") "/bin" ":"))
 | 
					                                                              file)))
 | 
				
			||||||
 | 
					                                (list "bin/bash"
 | 
				
			||||||
 | 
					                                      "bin/gzip"
 | 
				
			||||||
 | 
					                                      "bin/perl"))
 | 
				
			||||||
 | 
					                           ":"))
 | 
				
			||||||
           (copy-recursively (assoc-ref %build-inputs "source")
 | 
					           (copy-recursively (assoc-ref %build-inputs "source")
 | 
				
			||||||
                             ,(string-append real-name "-" version))
 | 
					                             ,(string-append real-name "-" version))
 | 
				
			||||||
           (with-directory-excursion ,(string-append real-name "-" version)
 | 
					           (with-directory-excursion ,(string-append real-name "-" version)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue