ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 14:28:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

status: Report grafting derivations specially.

Browse source 
* guix/status.scm (print-build-event): In 'build-started' event handler,
check the properties of DRV and handle 'graft' derivations specially.
This commit is contained in:
Ludovic Courtès 2018-11-26 22:29:29 +01:00
parent 64fd1c01bc
commit af1f1c38fb
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
guix/status.scm
View file

@ -325,7 +325,19 @@ (define print-log-line
(display "\r" port)) ;erase the spinner (display "\r" port)) ;erase the spinner
(match event (match event
(('build-started drv . _) (('build-started drv . _)
(format port (info (G_ "building ~a...")) drv) (let ((properties (derivation-properties
(read-derivation-from-file drv))))
(match (assq-ref properties 'type)
('graft
(let ((count (match (assq-ref properties 'graft)
(#f 0)
(lst (or (assq-ref lst 'count) 0)))))
(format port (info (N_ "applying ~a graft for ~a..."
"applying ~a grafts for ~a..."
count))
count drv)))
(_
(format port (info (G_ "building ~a...")) drv))))
(newline port)) (newline port))
(('build-succeeded drv . _) (('build-succeeded drv . _)
(when (or print-log? (not (extended-build-trace-supported?))) (when (or print-log? (not (extended-build-trace-supported?)))