[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#65777] [PATCH 1/2] gnu: npiet: fix cross-compile.
From: |
Zheng Junjie |
Subject: |
[bug#65777] [PATCH 1/2] gnu: npiet: fix cross-compile. |
Date: |
Wed, 6 Sep 2023 17:46:48 +0800 |
* gnu/packages/piet.scm (npiet): fix cross-compile.
[arguments]<#:phases>: Use SEARCH-INPUT-FILE replace WHICH.
---
gnu/packages/piet.scm | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/piet.scm b/gnu/packages/piet.scm
index 824efe59de..8e5a313e82 100644
--- a/gnu/packages/piet.scm
+++ b/gnu/packages/piet.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright ?? 2020 Jesse Gibbons <jgibbons2357+guix@gmail.com>
;;; Copyright ?? 2020 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright ?? 2023 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -46,10 +47,12 @@ (define-public npiet
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'wrap-binaries
- (lambda* (#:key outputs #:allow-other-keys)
+ (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(wrap-program (string-append out "/bin/npietedit")
- `("PATH" ":" prefix (,(dirname (which "wish")))))
+ `("PATH" ":" prefix
+ (,(dirname
+ (search-input-file inputs "bin/wish")))))
#t))))))
(inputs
(list gd giflib libpng tk))
--
2.41.0