SLY/Nyxt: Report error when building Guix profile.
parent
90d8953101
commit
5ea702d757
|
@ -65,7 +65,12 @@ GUIX-COMMAND is the command to the guix executable, e.g. '(\"~/projects/guix/pre
|
||||||
(when no-grafts?
|
(when no-grafts?
|
||||||
(list "--no-grafts")))))
|
(list "--no-grafts")))))
|
||||||
(message "Running %S" (mapconcat #'identity (cons command args) " "))
|
(message "Running %S" (mapconcat #'identity (cons command args) " "))
|
||||||
(apply #'call-process command nil nil nil args))
|
(let* ((output (get-buffer-create " *Guix SBCL for Nyxt*"))
|
||||||
|
(status (apply #'call-process command nil `(,output t) nil args)))
|
||||||
|
(if (= status 0)
|
||||||
|
(kill-buffer output)
|
||||||
|
(switch-to-buffer-other-window output)
|
||||||
|
(error "Guix command failed, see %s" output))))
|
||||||
;; Update root mtime in case it's not changed.
|
;; Update root mtime in case it's not changed.
|
||||||
;; Can't use `set-file-times' on links.
|
;; Can't use `set-file-times' on links.
|
||||||
(call-process "touch" nil nil nil "-h" root))
|
(call-process "touch" nil nil nil "-h" root))
|
||||||
|
|
Loading…
Reference in New Issue