From 2e7831b8a4e8d54932367eff63ed0bad9a8016c8 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 21 May 2018 16:51:10 +0200 Subject: [PATCH] doctor: reduce output for cert test --- bin/doom-doctor | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/bin/doom-doctor b/bin/doom-doctor index 5bf6865ed..33121fea9 100755 --- a/bin/doom-doctor +++ b/bin/doom-doctor @@ -225,8 +225,7 @@ (gnutls-verify-error t)) (dolist (url '("https://elpa.gnu.org" "https://melpa.org")) (when! (condition-case-unless-debug e - (if (let ((inhibit-message t)) (url-retrieve-synchronously url)) - (ignore (success! "Validated %s" url)) + (unless (let ((inhibit-message t)) (url-retrieve-synchronously url)) 'empty) ('timed-out 'timeout) ('error e)) @@ -243,7 +242,7 @@ t 'empty) ('timed-out 'timeout) - ('error (ignore (success! "Successfully rejected %s" url)))) + ('error)) (pcase it (`empty (error! "Couldn't reach %s" url)) (`timeout (error! "Timed out trying to contact %s" ex))