set up handles for p2phttp
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:
parent
edf8a3df2d
commit
3d13521479
2 changed files with 15 additions and 5 deletions
|
@ -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)))
|
||||
[]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue