diff --git a/README.md b/README.md index 541eddc..b424589 100644 --- a/README.md +++ b/README.md @@ -1,4 +1,4 @@ -[![ci](https://ci.mangoiv.com/api/badges/11/status.svg)](https://ci.mangoiv.com/repos/11) +[![Hackage](https://img.shields.io/hackage/v/http-barf.svg)](https://hackage.haskell.org/package/http-barf) [![ci](https://ci.mangoiv.com/api/badges/11/status.svg)](https://ci.mangoiv.com/repos/11) # http barf diff --git a/src/Network/HTTP/Barf/Internal.hs b/src/Network/HTTP/Barf/Internal.hs index 3ec1be7..206260a 100644 --- a/src/Network/HTTP/Barf/Internal.hs +++ b/src/Network/HTTP/Barf/Internal.hs @@ -178,7 +178,7 @@ h_ k v = MkReq \req -> req {headers = (k, v) `V.cons` req.headers} -- | 'v_' like "value" -- --- this is a convenience helper for using @'j_' @Value@. It is useful +-- this is a convenience helper for using @'j_'@ specialised to 'Value'. It is useful -- if you just want to quickly build a json body for your request. -- -- if the json body is already set, it /will be overwritten/ @@ -196,7 +196,7 @@ j_ => a -- ^ the value of the json body -> Req -j_ val = MkReq \req -> req {jsonBody = Just (Aeson.toJSON val)} +j_ = v_ . Aeson.toJSON -- | print the request before dispatching, useful for debugging inspectRequest_ :: Req