From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 2 Aug 2024 18:13:29 +0000 (-0400)
Subject: Remove debug output (to stderr)
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~21^2~173
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=c34d1da22a6cb1b316f5533ca74fd44a6ec388e6;p=git-annex.git

Remove debug output (to stderr)

Accidentially included in last version. Only happens when running code that
uses remoteUrl.
---

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 <id@joeyh.name>  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) ->