implemented servant-client support for websockets

This commit is contained in:
Joey Hess 2024-07-08 07:44:59 -04:00
parent 392b15d5c3
commit 522700d1c4
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 24 additions and 10 deletions

View file

@ -20,4 +20,4 @@ cmd = command "p2phttp" SectionPlumbing
paramNothing (withParams seek)
seek :: CmdParams -> CommandSeek
seek = error "TODO"
seek _ = liftIO $ P2P.Http.run