schmittlauch/Hash2Pub
1
0
Fork 1
Code Issues 47 Pull requests Releases Wiki Activity

improve documentation of clientPublishPost

Browse source
This commit is contained in:
Trolli Schmittlauch 2020-08-20 18:13:50 +02:00
parent 24088581fe
commit 32734102cd
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Hash2Pub/PostService.hs
View file

@ -450,11 +450,11 @@ clientUnsubscribeFrom serv tag = do
-- the post to the responsible relays. -- the post to the responsible relays.
-- As the initial publishing isn't done by a specific relay (but *to* a specific relay -- As the initial publishing isn't done by a specific relay (but *to* a specific relay
-- instead), the function does *not* take a PostService as argument. -- instead), the function does *not* take a PostService as argument.
clientPublishPost :: HTTP.Manager -- for better performance, a shared HTTP manager has to be provided clientPublishPost :: HTTP.Manager -- ^ for better performance, a shared HTTP manager has to be provided
-> String -- hostname -> String -- ^ hostname
-> Int -- port -> Int -- ^ port
-> PostContent -- post content -> PostContent -- ^ post content
-> IO (Either String ()) -- error or success -> IO (Either String ()) -- ^ error or success
clientPublishPost httpman hostname port postC = do clientPublishPost httpman hostname port postC = do
resp <- runClientM (postInboxClient postC) (mkClientEnv httpman (BaseUrl Http hostname port "")) resp <- runClientM (postInboxClient postC) (mkClientEnv httpman (BaseUrl Http hostname port ""))
pure . bimap show (const ()) $ resp pure . bimap show (const ()) $ resp