From 96bb0c8f3121e5ae140c45223a7f51ae9ead34e7 Mon Sep 17 00:00:00 2001
From: mbays <mbays@sdf.org>
Date: Sun, 2 Oct 2022 00:00:00 +0000
Subject: [PATCH] note when trusting CA

---
 GeminiProtocol.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/GeminiProtocol.hs b/GeminiProtocol.hs
index 07acea0..1f4ce9e 100644
--- a/GeminiProtocol.hs
+++ b/GeminiProtocol.hs
@@ -295,7 +295,9 @@ makeRequest (RequestContext (InteractionCallbacks displayInfo displayWarning _ p
             in verify signedCerts
 
         doTofu errors = if not . any isTrustError $ errors
-            then return errors
+            then do
+                displayInfo [ "Accepting valid certificate chain with trusted root CA." ]
+                return errors
             else do
                 trust <- checkTrust $ filter isTrustableError errors
                 return $ if trust
-- 
2.11.4.GIT