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) ->