From c34d1da22a6cb1b316f5533ca74fd44a6ec388e6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 2 Aug 2024 14:13:29 -0400 Subject: [PATCH] Remove debug output (to stderr) Accidentially included in last version. Only happens when running code that uses remoteUrl. --- CHANGELOG | 2 ++ Types/GitConfig.hs | 13 +++++-------- 2 files changed, 7 insertions(+), 8 deletions(-) diff --git a/CHANGELOG b/CHANGELOG index 54a2bacc37..8ac4edcbc9 100644 --- a/CHANGELOG +++ b/CHANGELOG @@ -1,6 +1,8 @@ git-annex (10.20240732) UNRELEASED; urgency=medium * Avoid loading cluster log at startup. + * Remove debug output (to stderr) accidentially included in + last version. -- Joey Hess Wed, 31 Jul 2024 15:52:03 -0400 diff --git a/Types/GitConfig.hs b/Types/GitConfig.hs index 93f1737717..68ce298d02 100644 --- a/Types/GitConfig.hs +++ b/Types/GitConfig.hs @@ -29,8 +29,6 @@ module Types.GitConfig ( mkRemoteConfigKey, ) where -import Debug.Trace - import Common import qualified Git import qualified Git.Config @@ -495,12 +493,11 @@ extractRemoteGitConfig r remotename = do , remoteAnnexClusterGateway = fromMaybe [] $ (mapMaybe (mkClusterUUID . toUUID) . words) <$> getmaybe ClusterGatewayField - , remoteUrl = traceShow (mkRemoteConfigKey remotename (remoteGitConfigKey UrlField)) $ - case Git.Config.getMaybe (mkRemoteConfigKey remotename (remoteGitConfigKey UrlField)) r of - Just (ConfigValue b) - | B.null b -> Nothing - | otherwise -> Just (decodeBS b) - _ -> Nothing + , remoteUrl = case Git.Config.getMaybe (mkRemoteConfigKey remotename (remoteGitConfigKey UrlField)) r of + Just (ConfigValue b) + | B.null b -> Nothing + | otherwise -> Just (decodeBS b) + _ -> Nothing , remoteAnnexP2PHttpUrl = case Git.Config.getMaybe (mkRemoteConfigKey remotename (remoteGitConfigKey AnnexUrlField)) r of Just (ConfigValue b) ->