eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

tweaks

Browse source
This commit is contained in:
Alp Mestanogullari 2018-07-06 00:38:22 +02:00 committed by GitHub
parent fbd9f3ec29
commit 66039fd124
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
doc/cookbook/using-free-client/UsingFreeClient.lhs
View file

@ -118,7 +118,7 @@ and `BaseUrl`:
mgr <- HTTP.newManager HTTP.defaultManagerSettings mgr <- HTTP.newManager HTTP.defaultManagerSettings
``` ```
Now we can use `servant-client` internals to convert servant's `Request` Now we can use `servant-client`'s internals to convert servant's `Request`
to http-client's `Request`, and we can inspect it: to http-client's `Request`, and we can inspect it:
```haskell ```haskell
@ -126,8 +126,8 @@ to http-client's `Request`, and we can inspect it:
putStrLn $ "Making request: " ++ show req' putStrLn $ "Making request: " ++ show req'
``` ```
`servant-client` does a bit more than `httpLbs`, but that's enough for us. `servant-client`'s request does a little more, but this is good enough for
We get back a http-client `Response` which we can also inspect our demo. We get back an http-client `Response` which we can also inspect.
```haskell ```haskell
res' <- HTTP.httpLbs req' mgr res' <- HTTP.httpLbs req' mgr