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 54a2bacc37c2d22d705a4a09733aa86eadf3690f..8ac4edcbc9d32e14dbee5c30f763b955e8adfb4d 100644 (file)
--- 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 93f1737717c521e809794971322f34788ba22da0..68ce298d02c6c5059c8b5b85f13fdd42590d4ddb 100644 (file)
--- 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) ->