emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

doctor: reduce output for cert test

Browse source
This commit is contained in:
Henrik Lissner 2018-05-21 16:51:10 +02:00
parent 6a08128194
commit 2e7831b8a4
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
bin/doom-doctor
View file

@ -225,8 +225,7 @@
(gnutls-verify-error t)) (gnutls-verify-error t))
(dolist (url '("https://elpa.gnu.org" "https://melpa.org")) (dolist (url '("https://elpa.gnu.org" "https://melpa.org"))
(when! (condition-case-unless-debug e (when! (condition-case-unless-debug e
(if (let ((inhibit-message t)) (url-retrieve-synchronously url)) (unless (let ((inhibit-message t)) (url-retrieve-synchronously url))
(ignore (success! "Validated %s" url))
'empty) 'empty)
('timed-out 'timeout) ('timed-out 'timeout)
('error e)) ('error e))
@ -243,7 +242,7 @@
t t
'empty) 'empty)
('timed-out 'timeout) ('timed-out 'timeout)
('error (ignore (success! "Successfully rejected %s" url)))) ('error))
(pcase it (pcase it
(`empty (error! "Couldn't reach %s" url)) (`empty (error! "Couldn't reach %s" url))
(`timeout (error! "Timed out trying to contact %s" ex)) (`timeout (error! "Timed out trying to contact %s" ex))