implemented servant-client support for websockets
This commit is contained in:
parent
392b15d5c3
commit
522700d1c4
2 changed files with 24 additions and 10 deletions
|
@ -20,4 +20,4 @@ cmd = command "p2phttp" SectionPlumbing
|
|||
paramNothing (withParams seek)
|
||||
|
||||
seek :: CmdParams -> CommandSeek
|
||||
seek = error "TODO"
|
||||
seek _ = liftIO $ P2P.Http.run
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue