From b5b6afbeef0c30c081a67dfdc7cef4eb982791f5 Mon Sep 17 00:00:00 2001 From: Keagan McClelland Date: Tue, 1 Dec 2020 11:59:49 -0700 Subject: [PATCH] fix hostname vs server id delineation --- agent/src/Daemon/SslRenew.hs | 2 +- agent/src/Lib/Synchronizers.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/agent/src/Daemon/SslRenew.hs b/agent/src/Daemon/SslRenew.hs index dedeb477b..ed47d4527 100644 --- a/agent/src/Daemon/SslRenew.hs +++ b/agent/src/Daemon/SslRenew.hs @@ -25,7 +25,7 @@ import Constants renewSslLeafCert :: AgentCtx -> IO () renewSslLeafCert ctx = do let base = appFilesystemBase . appSettings $ ctx - hn <- injectFilesystemBase base getStart9AgentHostname + hn <- (<> ".local") <$> injectFilesystemBase base getStart9AgentHostname tor <- injectFilesystemBase base getAgentHiddenServiceUrl putStr @Text "SSL Renewal Required? " needsRenew <- doesSslNeedRenew (toS $ entityCertPath hn `relativeTo` base) diff --git a/agent/src/Lib/Synchronizers.hs b/agent/src/Lib/Synchronizers.hs index 0a05ac4df..af72e9fb0 100644 --- a/agent/src/Lib/Synchronizers.hs +++ b/agent/src/Lib/Synchronizers.hs @@ -467,7 +467,7 @@ syncConvertEcdsaCerts = SyncOp "Convert Intermediate Cert to ECDSA P256" check m replaceDerivativeCerts :: (HasFilesystemBase sig m, Fused.Has (Error S9Error) sig m, MonadIO m) => m () replaceDerivativeCerts = do - hn <- getStart9AgentHostname + hn <- (<> ".local") <$> getStart9AgentHostname tor <- getAgentHiddenServiceUrl caKeyPath <- toS <$> getAbsoluteLocationFor rootCaKeyPath