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

thread in a state

Browse source
This commit is contained in:
Joey Hess 2024-07-08 14:00:23 -04:00
parent 69c4f07ab0
commit 0bdee626ad
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 62 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/P2PHttp.hs
View file

@ -22,5 +22,7 @@ cmd = command "p2phttp" SectionPlumbing
paramNothing (withParams seek)
seek :: CmdParams -> CommandSeek
seek ["server"] = liftIO $ Warp.run 8080 p2pHttpApp
seek ["server"] = liftIO $ do
st <- mkP2PHttpServerState
Warp.run 8080 (p2pHttpApp st)
seek ["client"] = liftIO testClientLock