on master help sign in
Be consistent in spelling of “Json”
commit9a98e52d043b91be014611ede89d344fbb1559d0 authormrkkrp <markkarpov@opmbx.org> dateSun 6 Nov 2016, 01:08 (10 years ago) parentacbe9fb
1 file changed+4−4
Network/HTTP/Req.hs+4−4
Network/HTTP/Req.hs+4−4
@@ -134,7 +134,7 @@ module Network.HTTP.Req
134134 -- ** Body
135135 -- $body
136136 , NoReqBody (..)
137− , ReqBodyJSON (..)
137+ , ReqBodyJson (..)
138138 , ReqBodyFile (..)
139139 , ReqBodyBs (..)
140140 , ReqBodyLbs (..)
@@ -637,10 +637,10 @@ instance HttpBody NoReqBody where
637637-- This body option sets the @Content-Type@ header to @\"application/json;
638638-- charset=utf-8\"@ value.
639639
640−newtype ReqBodyJSON a = ReqBodyJSON a
640+newtype ReqBodyJson a = ReqBodyJson a
641641
642−instance ToJSON a => HttpBody (ReqBodyJSON a) where
643− getRequestBody (ReqBodyJSON a) = L.RequestBodyLBS (A.encode a)
642+instance ToJSON a => HttpBody (ReqBodyJson a) where
643+ getRequestBody (ReqBodyJson a) = L.RequestBodyLBS (A.encode a)
644644 getRequestContentType Proxy = pure "application/json; charset=utf-8"
645645
646646-- | This body option streams request body from a file. It is expected that