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

Remote.Git checkpresent works with annex+http urls.

Browse source
This commit is contained in:
Joey Hess 2024-07-23 14:31:32 -04:00
parent b0eed55d4f
commit 4e15b786ca
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Command/P2PHttp.hs
View file

@ -69,12 +69,7 @@ optParser _ = Options
)
seek :: Options -> CommandSeek
seek o = getAnnexWorkerPool $ \workerpool -> do
-- XXX remove this
when (isNothing (portOption o)) $ do
liftIO $ putStrLn "test begins"
testLocking
giveup "TEST DONE"
seek o = getAnnexWorkerPool $ \workerpool ->
withLocalP2PConnections workerpool $ \acquireconn -> liftIO $ do
authenv <- getAuthEnv
st <- mkP2PHttpServerState acquireconn workerpool $