cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Display a backtrace for errors in channel->derivation-file-name

Browse source 
To help with debugging.
This commit is contained in:
Christopher Baines 2019-06-13 23:13:34 +01:00
parent 11144a5fe9
commit 0bd1fc7e87
1 changed files with 52 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

13
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -292,6 +292,8 @@
(catch (catch
#t #t
(lambda ()
(with-throw-handler #t
(lambda () (lambda ()
;; /etc is only missing if open-inferior/container has been used ;; /etc is only missing if open-inferior/container has been used
(when use-container? (when use-container?
@ -341,13 +343,14 @@
(close-inferior inferior) (close-inferior inferior)
file-name))) file-name)))
(lambda args (lambda (key . parameters)
(display (backtrace) (current-error-port))
(display "\n" (current-error-port))
(simple-format (current-error-port) (simple-format (current-error-port)
"error: channel->derivation-file-name: ~A\n" "error: channel->derivation-file-name: ~A: ~A\n"
args) key parameters))))
(lambda args
(close-inferior inferior) (close-inferior inferior)
#f)))) #f))))
(define (channel->manifest-store-item store channel) (define (channel->manifest-store-item store channel)