build-system/ruby: Use invoke.
* guix/build/ruby-build-system.scm (install): Use invoke.
This commit is contained in:
parent
0fa5055597
commit
0244952c11
|
@ -143,14 +143,13 @@ GEM-FLAGS are passed to the 'gem' invokation, if present."
|
||||||
(gem-dir (string-append vendor-dir "/gems/" gem-name)))
|
(gem-dir (string-append vendor-dir "/gems/" gem-name)))
|
||||||
(setenv "GEM_VENDOR" vendor-dir)
|
(setenv "GEM_VENDOR" vendor-dir)
|
||||||
|
|
||||||
(or (zero?
|
(or (apply invoke "gem" "install" gem-file
|
||||||
(apply system* "gem" "install" gem-file
|
"--verbose"
|
||||||
"--verbose"
|
"--local" "--ignore-dependencies" "--vendor"
|
||||||
"--local" "--ignore-dependencies" "--vendor"
|
;; Executables should go into /bin, not
|
||||||
;; Executables should go into /bin, not
|
;; /lib/ruby/gems.
|
||||||
;; /lib/ruby/gems.
|
"--bindir" (string-append out "/bin")
|
||||||
"--bindir" (string-append out "/bin")
|
gem-flags)
|
||||||
gem-flags))
|
|
||||||
(begin
|
(begin
|
||||||
(let ((failed-output-dir (string-append (getcwd) "/out")))
|
(let ((failed-output-dir (string-append (getcwd) "/out")))
|
||||||
(mkdir failed-output-dir)
|
(mkdir failed-output-dir)
|
||||||
|
|
Loading…
Reference in New Issue