From d5d506ffc6c152f23d5d8f861c360f42f9090c65 Mon Sep 17 00:00:00 2001
From: mangoiv <contact@mangoiv.com>
Date: Sun, 21 Jul 2024 21:39:10 +0200
Subject: [PATCH] [chore] add hackage to README.md

---
 README.md                         | 2 +-
 src/Network/HTTP/Barf/Internal.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

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