me
/
guix
Archived
1
0
Fork 0
Code

build-self: Add missing 'close-pipe' call. 

* build-aux/build-self.scm (build): Call 'close-pipe'.
master
Ludovic Courtès 2018-04-08 21:11:37 +02:00
parent 16c28becf2
commit f27a712840
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
build-aux/build-self.scm
View File

@ -277,14 +277,16 @@ files."
(mbegin %store-monad
(show-what-to-build* (list build))
(built-derivations (list build))
(let ((pipe (begin
(setenv "GUILE_WARN_DEPRECATED" "no") ;be quiet and drive
(open-pipe* OPEN_READ
(derivation->output-path build)
source system))))
(match (get-string-all pipe)
(let* ((pipe (begin
(setenv "GUILE_WARN_DEPRECATED" "no") ;be quiet and drive
(open-pipe* OPEN_READ
(derivation->output-path build)
source system)))
(str (get-string-all pipe))
(status (close-pipe pipe)))
(match str
((? eof-object?)
(error "build program failed" build))
(error "build program failed" (list build status)))
((? derivation-path? drv)
(mbegin %store-monad
(return (newline (current-output-port)))