remove a debug print and fix build

diff --git a/Remote/Web.hs b/Remote/Web.hs
index 7d3d00622fb94b9c4f092685faf3a8ce88186669..ad8a3050cf75db61bfc09f0d4787c499a4301cb2 100644 (file)
--- 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)