diff options
Diffstat (limited to 'guix/status.scm')
| -rw-r--r-- | guix/status.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/guix/status.scm b/guix/status.scm index 94d4748af5..afa3c656a8 100644 --- a/guix/status.scm +++ b/guix/status.scm @@ -24,10 +24,7 @@ #:autoload (guix build syscalls) (terminal-columns) #:use-module ((guix build download) #:select (nar-uri-abbreviation)) - #:use-module ((guix store) - #:select (current-build-output-port - current-store-protocol-version - log-file)) + #:use-module (guix store) #:use-module (guix derivations) #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) @@ -334,8 +331,13 @@ addition to build events." (('build-failed drv . _) (format port (failure (G_ "build of ~a failed")) drv) (newline port) - (format port (info (G_ "View build log at '~a'.~%")) - (log-file #f drv))) + (match (derivation-log-file drv) + (#f + (format port (failure (G_ "Could not find build log for '~a'.")) + drv)) + (log + (format port (info (G_ "View build log at '~a'.")) log))) + (newline port)) (('substituter-started item _ ...) (when (or print-log? (not (extended-build-trace-supported?))) (format port (info (G_ "substituting ~a...")) item) |