nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

* build-aux/build-self.scm (build): Call 'close-pipe'.
This commit is contained in:
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

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

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