mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove a debug print and fix build

Browse source
This commit is contained in:
Joey Hess 2023-01-12 13:18:25 -04:00
parent 8da345b1fb
commit 400ce29a94
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote/Web.hs
View file

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