mirror of
https://github.com/higherkindness/mu-haskell.git
synced 2024-10-26 15:49:00 +03:00
Fix the sample args of gRpcCall in docs (#298)
This commit is contained in:
parent
109b2d137d
commit
bac654e670
@ -146,7 +146,7 @@ get client idPerson = do
|
|||||||
let req = MPersonRequest $ read idPerson
|
let req = MPersonRequest $ read idPerson
|
||||||
putStrLn $ "GET: is there some person with id: " ++ idPerson ++ "?"
|
putStrLn $ "GET: is there some person with id: " ++ idPerson ++ "?"
|
||||||
response :: GRpcReply MPerson
|
response :: GRpcReply MPerson
|
||||||
<- gRpcCall @Service @"getPerson" client req
|
<- gRpcCall @'MsgProtoBuf @Service @"Service" @"getPerson" client req
|
||||||
putStrLn $ "GET: response was: " ++ show response
|
putStrLn $ "GET: response was: " ++ show response
|
||||||
```
|
```
|
||||||
|
|
||||||
@ -158,7 +158,7 @@ add client nm ag = do
|
|||||||
let p = MPerson Nothing (T.pack nm) (read ag)
|
let p = MPerson Nothing (T.pack nm) (read ag)
|
||||||
putStrLn $ "ADD: creating new person " ++ nm ++ " with age " ++ ag
|
putStrLn $ "ADD: creating new person " ++ nm ++ " with age " ++ ag
|
||||||
response :: GRpcReply MPersonRequest
|
response :: GRpcReply MPersonRequest
|
||||||
<- gRpcCall @Service @"newPerson" client p
|
<- gRpcCall @'MsgProtoBuf @Service @"Service" @"newPerson" client p
|
||||||
putStrLn $ "ADD: was creating successful? " ++ show response
|
putStrLn $ "ADD: was creating successful? " ++ show response
|
||||||
```
|
```
|
||||||
|
|
||||||
@ -167,7 +167,7 @@ We are being a bit more explicit with the types here (for example, `response ::
|
|||||||
```haskell
|
```haskell
|
||||||
watching :: GrpcClient -> IO ()
|
watching :: GrpcClient -> IO ()
|
||||||
watching client = do
|
watching client = do
|
||||||
replies <- gRpcCall @Service @"allPeople" client
|
replies <- gRpcCall @'MsgProtoBuf @Service @"Service" @"allPeople" client
|
||||||
runConduit $ replies .| C.mapM_ (print :: GRpcReply MPerson -> IO ())
|
runConduit $ replies .| C.mapM_ (print :: GRpcReply MPerson -> IO ())
|
||||||
```
|
```
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user