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

set up handles for p2phttp

Browse source 
Now it fully works.. for the first request. But then it gets stuck
waiting for the P2P protocol runner to shut down.
This commit is contained in:
Joey Hess 2024-07-09 13:50:42 -04:00
parent edf8a3df2d
commit 3d13521479
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/P2PHttp.hs
View file

@ -54,7 +54,7 @@ testCheckPresent = do
burl <- liftIO $ parseBaseUrl "http://localhost:8080/"
res <- liftIO $ clientCheckPresent (mkClientEnv mgr burl)
(P2P.ProtocolVersion 3)
(B64Key (fromJust $ deserializeKey ("WORM--foo" :: String)))
(B64Key (fromJust $ deserializeKey ("WORM-s30-m1720547401--foo" :: String)))
(B64UUID (toUUID ("cu" :: String)))
(B64UUID (toUUID ("f11773f0-11e1-45b2-9805-06db16768efe" :: String)))
[]