Revert "build-system/ruby: Use invoke."
This reverts commit 0244952c11
.
We prefer 'invoke', but the custom error handling works better with the
code as-is.
This commit is contained in:
parent
0244952c11
commit
7c86fdda7c
|
@ -143,13 +143,16 @@ 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 (apply invoke "gem" "install" gem-file
|
(or (zero?
|
||||||
"--verbose"
|
;; 'zero? system*' allows the custom error handling to function as
|
||||||
"--local" "--ignore-dependencies" "--vendor"
|
;; expected, while 'invoke' raises its own exception.
|
||||||
;; Executables should go into /bin, not
|
(apply system* "gem" "install" gem-file
|
||||||
;; /lib/ruby/gems.
|
"--verbose"
|
||||||
"--bindir" (string-append out "/bin")
|
"--local" "--ignore-dependencies" "--vendor"
|
||||||
gem-flags)
|
;; Executables should go into /bin, not
|
||||||
|
;; /lib/ruby/gems.
|
||||||
|
"--bindir" (string-append out "/bin")
|
||||||
|
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