thread in a state

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

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