amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Revert "build-system/ruby: Use invoke."

Browse source 
This reverts commit 0244952c11.

We prefer 'invoke', but the custom error handling works better with the
code as-is.
This commit is contained in:
Efraim Flashner 2019-03-28 20:18:02 +02:00
parent 0244952c11
commit 7c86fdda7c
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

17
guix/build/ruby-build-system.scm
View file

@ -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)