ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

git: Add an exception printer for 'git-error'.

Browse source 
* guix/git.scm (print-git-error): New procedure.
<top level>: Call 'set-exception-printer!'.
This commit is contained in:
Ludovic Courtès 2019-02-11 22:51:08 +01:00
parent 70a50305c4
commit 1d8b10d00f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/git.scm
View file

@ -300,6 +300,14 @@ (define (dot-git? file stat)
#:select? (negate dot-git?))
commit)))
(define (print-git-error port key args default-printer)
(match args
(((? git-error? error) . _)
(format port (G_ "Git error: ~a~%")
(git-error-message error)))))
(set-exception-printer! 'git-error print-git-error)
;;;
;;; Checkouts.