From 400ce29a948e116b0735d7417b10310d71a6a6ff Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 12 Jan 2023 13:18:25 -0400
Subject: [PATCH] remove a debug print and fix build

---
 Remote/Web.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Remote/Web.hs b/Remote/Web.hs
index 7d3d00622f..ad8a3050cf 100644
--- a/Remote/Web.hs
+++ b/Remote/Web.hs
@@ -65,7 +65,7 @@ list _autoinit = do
 gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> RemoteStateHandle -> Annex (Maybe Remote)
 gen r u rc gc rs = do
 	c <- parsedRemoteConfig remote rc
-	cst <- remoteCost gc expensiveRemoteCost
+	cst <- remoteCost gc c expensiveRemoteCost
  	urlincludeexclude <- mkUrlIncludeExclude c
 	return $ Just Remote
 		{ uuid = if u == NoUUID then webUUID else u
@@ -222,7 +222,6 @@ mkUrlIncludeExclude = go fallback
 		l <- forM rcs $ \rc ->
 			parsedRemoteConfig remote rc
 				>>= go (pure neverinclude)
-		liftIO $ print ("fallback", l)
 		pure $ UrlIncludeExclude
 			{ checkUrlIncludeExclude = \u ->
 				not (any (\c -> checkUrlIncludeExclude c u) l)