me
/
guix
Archived
1
0
Fork 0
Code

gnu: mes-minimal: Remove unused variable. 

* gnu/packages/make-bootstrap.scm (%mes-minimal): Remove unused
'triplet' variable.
master
Ludovic Courtès 2021-07-25 20:15:45 +02:00
parent 0236013cd0
commit 8b627a7701
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 23 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
gnu/packages/make-bootstrap.scm
View File

@ -623,31 +623,30 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
;; Two packages: first build static, bare minimum content. ;; Two packages: first build static, bare minimum content.
(define-public %mes-minimal (define-public %mes-minimal
;; A minimal Mes without documentation. ;; A minimal Mes without documentation.
(let ((triplet "i686-unknown-linux-gnu")) (package
(package (inherit mes-0.19)
(inherit mes-0.19) (name "mes-minimal")
(name "mes-minimal") (native-inputs
(native-inputs `(("guile" ,guile-2.2)))
`(("guile" ,guile-2.2))) (arguments
(arguments `(#:system "i686-linux"
`(#:system "i686-linux" #:strip-binaries? #f
#:strip-binaries? #f #:configure-flags '("--mes")
#:configure-flags '("--mes") #:phases
#:phases (modify-phases %standard-phases
(modify-phases %standard-phases (delete 'patch-shebangs)
(delete 'patch-shebangs) (add-after 'install 'strip-install
(add-after 'install 'strip-install (lambda _
(lambda _ (let* ((out (assoc-ref %outputs "out"))
(let* ((out (assoc-ref %outputs "out")) (share (string-append out "/share")))
(share (string-append out "/share"))) (delete-file-recursively (string-append out "/lib/guile"))
(delete-file-recursively (string-append out "/lib/guile")) (delete-file-recursively (string-append share "/guile"))
(delete-file-recursively (string-append share "/guile")) (delete-file-recursively (string-append share "/mes/scaffold"))
(delete-file-recursively (string-append share "/mes/scaffold"))
(for-each delete-file (for-each delete-file
(find-files (find-files
(string-append share "/mes/lib") (string-append share "/mes/lib")
"\\.(h|c)"))))))))))) "\\.(h|c)"))))))))))
;; next remove store references. ;; next remove store references.
(define %mes-minimal-stripped (define %mes-minimal-stripped