Browse Source
gnu: guile-ssh: Return #t from all phases.
* gnu/packages/ssh.scm (guile-ssh)[arguments]: Substitute INVOKE for
SYSTEM* and all its trappings.
version-0.15.0
Tobias Geerinckx-Rice
4 years ago
No known key found for this signature in database
GPG Key ID: DB0FF884F556D79
1 changed files with
11 additions and
11 deletions
-
gnu/packages/ssh.scm
|
|
|
@ -256,22 +256,22 @@ Additionally, various channel-specific options can be negotiated.") |
|
|
|
'(#:phases (modify-phases %standard-phases |
|
|
|
(add-after 'unpack 'autoreconf |
|
|
|
(lambda* (#:key inputs #:allow-other-keys) |
|
|
|
(zero? (system* "autoreconf" "-vfi")))) |
|
|
|
(invoke "autoreconf" "-vfi"))) |
|
|
|
(add-before 'build 'fix-libguile-ssh-file-name |
|
|
|
(lambda* (#:key outputs #:allow-other-keys) |
|
|
|
;; Build and install libguile-ssh.so so that we can use |
|
|
|
;; its absolute file name in .scm files, before we build |
|
|
|
;; the .go files. |
|
|
|
(and (zero? (system* "make" "install" |
|
|
|
"-C" "libguile-ssh" |
|
|
|
"-j" (number->string |
|
|
|
(parallel-job-count)))) |
|
|
|
(let* ((out (assoc-ref outputs "out")) |
|
|
|
(libdir (string-append out "/lib"))) |
|
|
|
(substitute* (find-files "." "\\.scm$") |
|
|
|
(("\"libguile-ssh\"") |
|
|
|
(string-append "\"" libdir "/libguile-ssh\""))) |
|
|
|
#t)))) |
|
|
|
(let* ((out (assoc-ref outputs "out")) |
|
|
|
(lib (string-append out "/lib"))) |
|
|
|
(invoke "make" "install" |
|
|
|
"-C" "libguile-ssh" |
|
|
|
"-j" (number->string |
|
|
|
(parallel-job-count))) |
|
|
|
(substitute* (find-files "." "\\.scm$") |
|
|
|
(("\"libguile-ssh\"") |
|
|
|
(string-append "\"" lib "/libguile-ssh\""))) |
|
|
|
#t))) |
|
|
|
(add-after 'install 'remove-bin-directory |
|
|
|
(lambda* (#:key outputs #:allow-other-keys) |
|
|
|
(let* ((out (assoc-ref outputs "out")) |
|
|
|
|
