5f35725..master · typeable/req

git.iko.soy/typeable/req

12 files changed+200−132

unifiedsplit

.github/workflows/ci.yaml+14−15 .gitignore+1 CHANGELOG.md+16 Network/HTTP/Req.hs+9−9 README.md+1−1 Setup.hs−6 cabal.project+4 httpbun-data/robots.txt → httpbin-data/robots.txt httpbun-data/utf8.html → httpbin-data/utf8.html httpbun-tests/Network/HTTP/ReqSpec.hs → httpbin-tests/Network/HTTP/ReqSpec.hs+122−71 httpbun-tests/Spec.hs → httpbin-tests/Spec.hs req.cabal+33−30

.github/workflows/ci.yaml+14−15

@@ -11,27 +11,25 @@ jobs:

1111 ormolu:

1212 runs-on: ubuntu-latest

1313 steps:

14− - uses: actions/checkout@v3

15− - uses: haskell-actions/run-ormolu@v14

14+ - uses: actions/checkout@v4

15+ - uses: haskell-actions/run-ormolu@v17

1616 build:

1717 runs-on: ubuntu-latest

1818 needs: ormolu

1919 strategy:

2020 matrix:

21− cabal: ["3.10"]

22− ghc: ["9.2.8", "9.4.5", "9.6.2"]

23− env:

24− CONFIG: "--enable-tests --enable-benchmarks --flags=dev"

21+ cabal: ["3.12"]

22+ ghc: ["9.6.3", "9.8.2", "9.10.1"]

2523 steps:

26− - uses: actions/checkout@v3

27− - uses: haskell/actions/setup@v2

24+ - uses: actions/checkout@v4

25+ - uses: haskell-actions/setup@v2

2826 id: setup-haskell-cabal

2927 with:

3028 ghc-version: ${{ matrix.ghc }}

3129 cabal-version: ${{ matrix.cabal }}

3230 - run: cabal update

33− - run: cabal freeze $CONFIG

34− - uses: actions/cache@v3.3.1

31+ - run: cabal freeze

32+ - uses: actions/cache@v4.2.3

3533 with:

3634 path: |

3735 ${{ steps.setup-haskell-cabal.outputs.cabal-store }}

@@ -40,9 +38,10 @@ jobs:

4038 restore-keys: |

4139 ${{ runner.os }}-${{ matrix.ghc }}-

4240 - run: cabal format && git diff --exit-code --color=always

43− - run: cabal build $CONFIG

44− - run: cabal test $CONFIG

45− - run: cabal haddock $CONFIG

46− # Haddock fails to build, see https://github.com/haskell/cabal/issues/9060

47− if: ${{ matrix.ghc != '9.2.8' }}

41+ - run: cabal build

42+ - run: |

43+ docker pull kennethreitz/httpbin

44+ docker run -p 1234:80 kennethreitz/httpbin &

45+ cabal test

46+ - run: cabal haddock

4847 - run: cabal sdist

.gitignore+1

@@ -25,5 +25,6 @@ cabal.project.local

2525cabal.sandbox.config

2626dist-*/

2727dist/

28+hie.yaml

2829stack.yaml

2930stack.yaml.lock

CHANGELOG.md+16

@@ -1,3 +1,19 @@

1+## Req 3.13.4

3+* Fixed empty ciphersuite list when compiling against `tls < 2.0.6`

4+ (see [PR 175](https://github.com/mrkkrp/req/pull/175)). As a side effect, now

5+ compatible with older versions of `crypton-connection` (>= 0.3).

7+## Req 3.13.3

9+* Works with `crypton-connection-0.4` and newer.

10+

11+## Req 3.13.2

12+

13+* Disable the problematic `httpbin-tests` test suite by default. Only enable

14+ it when the `dev` flag is enabled. In that case it is expected that an

15+ httpbin server is run locally at `localhost:1234`.

16+

117## Req 3.13.1

218

319* Switched the non-pure test suite to use https://httpbun.org instead of

Network/HTTP/Req.hs+9−9

@@ -236,6 +236,7 @@ import Data.ByteString qualified as B

236236import Data.ByteString.Lazy qualified as BL

237237import Data.CaseInsensitive qualified as CI

238238import Data.Data (Data)

239+import Data.Default.Class (def)

239240import Data.Function (on)

240241import Data.IORef

241242import Data.Kind (Constraint, Type)

@@ -584,10 +585,10 @@ req' method url body options m = do

584585 withReqManager (m request)

585586

586587-- | Perform an action using the global implicit 'L.Manager' that the rest

587−-- of the library uses. This allows to reuse connections that the

588+-- of the library uses. This allows us to reuse connections that the

588589-- 'L.Manager' controls.

589590withReqManager :: (MonadIO m) => (L.Manager -> m a) -> m a

590−withReqManager m = liftIO (readIORef globalManager) >>= m

591+withReqManager m = m globalManager

591592

592593-- | The global 'L.Manager' that 'req' uses. Here we just go with the

593594-- default settings, so users don't need to deal with this manager stuff at

@@ -600,16 +601,16 @@ withReqManager m = liftIO (readIORef globalManager) >>= m

600601-- manager. From that moment on the 'IORef' will be just reused—exactly the

601602-- behavior we want here in order to maximize connection sharing. GHC could

602603-- spoil the plan by inlining the definition, hence the @NOINLINE@ pragma.

603−globalManager :: IORef L.Manager

604+globalManager :: L.Manager

604605globalManager = unsafePerformIO $ do

605606 context <- NC.initConnectionContext

606607 let settings =

607608 L.mkManagerSettingsContext

608609 (Just context)

609− (NC.TLSSettingsSimple False False False)

610+ def

610611 Nothing

611612 manager <- L.newManager settings

612− newIORef manager

613+ return manager

613614{-# NOINLINE globalManager #-}

614615

615616----------------------------------------------------------------------------

@@ -715,7 +716,6 @@ data HttpConfig = HttpConfig

715716 -- @since 3.6.0

716717 httpConfigBodyPreviewLength :: forall a. (Num a) => a

717718 }

718− deriving (Typeable)

719719

720720-- | The default value of 'HttpConfig'.

721721--

@@ -1024,7 +1024,7 @@ instance (HttpMethod method) => RequestComponent (Tagged "method" method) where

10241024-- > -- https://%D1%8E%D0%BD%D0%B8%D0%BA%D0%BE%D0%B4.%D1%80%D1%84

10251025data Url (scheme :: Scheme) = Url Scheme (NonEmpty Text)

10261026 -- NOTE The second value is the path segments in reversed order.

1027− deriving (Eq, Ord, Show, Data, Typeable, Generic)

1027+ deriving (Eq, Ord, Show, Data, Generic)

10281028

10291029type role Url nominal

10301030

@@ -2011,7 +2011,7 @@ data HttpException

20112011 | -- | A wrapper with Aeson-produced 'String' describing why decoding

20122012 -- failed

20132013 JsonHttpException String

2014− deriving (Show, Typeable, Generic)

2014+ deriving (Show, Generic)

20152015

20162016instance Exception HttpException

20172017

@@ -2048,4 +2048,4 @@ data Scheme

20482048 Http

20492049 | -- | HTTPS

20502050 Https

2051− deriving (Eq, Ord, Show, Data, Typeable, Generic, TH.Lift)

2051+ deriving (Eq, Ord, Show, Data, Generic, TH.Lift)

README.md+1−1

@@ -4,7 +4,7 @@

44[![Hackage](https://img.shields.io/hackage/v/req.svg?style=flat)](https://hackage.haskell.org/package/req)

55[![Stackage Nightly](http://stackage.org/package/req/badge/nightly)](http://stackage.org/nightly/package/req)

66[![Stackage LTS](http://stackage.org/package/req/badge/lts)](http://stackage.org/lts/package/req)

7−![CI](https://github.com/mrkkrp/req/workflows/CI/badge.svg?branch=master)

7+[![CI](https://github.com/mrkkrp/req/actions/workflows/ci.yaml/badge.svg)](https://github.com/mrkkrp/req/actions/workflows/ci.yaml)

99* [Related packages](#related-packages)

1010* [Blog posts](#blog-posts)

Setup.hsdeleted−6

@@ -1,6 +0,0 @@

1−module Main (main) where

2−

3−import Distribution.Simple

4−

5−main :: IO ()

6−main = defaultMain

cabal.projectnew file+4

@@ -0,0 +1,4 @@

1+packages: .

2+tests: True

3+benchmarks: True

4+constraints: req +dev

httpbun-data/robots.txt → httpbin-data/robots.txtrenamed

The content is the same.

httpbun-data/utf8.html → httpbin-data/utf8.htmlrenamed

The content is the same.

httpbun-tests/Network/HTTP/ReqSpec.hs → httpbin-tests/Network/HTTP/ReqSpec.hsrenamed+122−71

@@ -24,7 +24,8 @@ import Data.Text.Encoding qualified as T

2424import Data.Text.IO qualified as TIO

2525import Network.HTTP.Client qualified as L

2626import Network.HTTP.Client.MultipartFormData qualified as LM

27−import Network.HTTP.Req

27+import Network.HTTP.Req hiding (req)

28+import Network.HTTP.Req qualified as Req

2829import Network.HTTP.Types qualified as Y

2930import Test.Hspec

3031import Test.QuickCheck

@@ -33,25 +34,25 @@ spec :: Spec

3334spec = do

3435 describe "exception throwing on non-2xx status codes" $

3536 it "throws indeed for non-2xx" $

36− req GET (httpbun /: "foo") NoReqBody ignoreResponse mempty

37+ req GET (httpbin /: "foo") NoReqBody ignoreResponse mempty

3738 `shouldThrow` selector404

3839

3940 describe "exception throwing on non-2xx status codes (Req monad)" $

4041 it "throws indeed for non-2xx" $

4142 asIO . runReq defaultHttpConfig $

4243 liftBaseWith $ \run ->

43− run (req GET (httpbun /: "foo") NoReqBody ignoreResponse mempty)

44+ run (req GET (httpbin /: "foo") NoReqBody ignoreResponse mempty)

4445 `shouldThrow` selector404

4546

4647 describe "response check via httpConfigCheckResponse" $

4748 context "if it's set to always throw" $

4849 it "throws indeed" $

49− blindlyThrowing (req GET httpbun NoReqBody ignoreResponse mempty)

50+ blindlyThrowing (req GET httpbin NoReqBody ignoreResponse mempty)

5051 `shouldThrow` anyException

5152

5253 describe "isStatusCodeException" $

5354 it "extracts non-2xx response" $

54− req GET (httpbun /: "foo") NoReqBody ignoreResponse mempty

55+ req GET (httpbin /: "foo") NoReqBody ignoreResponse mempty

5556 `shouldThrow` selector404ByStatusCodeException

5657

5758 describe "receiving user-agent header back" $

@@ -59,7 +60,7 @@ spec = do

5960 r <-

6061 req

6162 GET

62− (httpbun /: "user-agent")

63+ (httpbin /: "user-agent")

6364 NoReqBody

6465 jsonResponse

6566 (header "user-agent" "Req")

@@ -74,27 +75,29 @@ spec = do

7475 r <-

7576 req

7677 GET

77− (httpbun /: "headers")

78+ (httpbin /: "headers")

7879 NoReqBody

7980 jsonResponse

8081 (header "Foo" "bar" <> header "Baz" "quux")

81− stripFunnyHeaders' (responseBody r)

82+ stripFunnyHeaders (responseBody r)

8283 `shouldBe` object

83− [ "Accept-Encoding" .= ("gzip" :: Text),

84− "Foo" .= ("bar" :: Text),

85− "Baz" .= ("quux" :: Text)

84+ [ "headers"

85+ .= object

86+ [ "Accept-Encoding" .= ("gzip" :: Text),

87+ "Foo" .= ("bar" :: Text),

88+ "Baz" .= ("quux" :: Text)

89+ ]

8690 ]

8791 responseStatusCode r `shouldBe` 200

8892 responseStatusMessage r `shouldBe` "OK"

8993

9094 describe "receiving GET data back" $

9195 it "works" $ do

92− r <- req GET (httpbun /: "get") NoReqBody jsonResponse mempty

96+ r <- req GET (httpbin /: "get") NoReqBody jsonResponse mempty

9397 (stripFunnyHeaders . stripOrigin) (responseBody r)

9498 `shouldBe` object

9599 [ "args" .= emptyObject,

96− "url" .= ("https://httpbun.org/get" :: Text),

97− "method" .= ("GET" :: Text),

100+ "url" .= ("http://localhost:1234/get" :: Text),

98101 "headers"

99102 .= object

100103 [ "Accept-Encoding" .= ("gzip" :: Text)

@@ -108,14 +111,13 @@ spec = do

108111 it "works" $ do

109112 let text = "foo" :: Text

110113 reflected = reflectJSON text

111− r <- req POST (httpbun /: "post") (ReqBodyJson text) jsonResponse mempty

114+ r <- req POST (httpbin /: "post") (ReqBodyJson text) jsonResponse mempty

112115 (stripFunnyHeaders . stripOrigin) (responseBody r)

113116 `shouldBe` object

114117 [ "args" .= emptyObject,

115118 "json" .= text,

116119 "data" .= reflected,

117− "url" .= ("https://httpbun.org/post" :: Text),

118− "method" .= ("POST" :: Text),

120+ "url" .= ("http://localhost:1234/post" :: Text),

119121 "headers"

120122 .= object

121123 [ "Content-Type" .= ("application/json; charset=utf-8" :: Text),

@@ -136,15 +138,14 @@ spec = do

136138 [ LM.partBS "foo" "foo data!",

137139 LM.partBS "bar" "bar data!"

138140 ]

139− r <- req POST (httpbun /: "post") body jsonResponse mempty

141+ r <- req POST (httpbin /: "post") body jsonResponse mempty

140142 let contentType = fromJust (getRequestContentType body)

141143 (stripFunnyHeaders . stripOrigin) (responseBody r)

142144 `shouldBe` object

143145 [ "args" .= emptyObject,

144146 "json" .= Null,

145147 "data" .= ("" :: Text),

146− "url" .= ("https://httpbun.org/post" :: Text),

147− "method" .= ("POST" :: Text),

148+ "url" .= ("http://localhost:1234/post" :: Text),

148149 "headers"

149150 .= object

150151 [ "Content-Type" .= T.decodeUtf8 contentType,

@@ -165,16 +166,15 @@ spec = do

165166 describe "receiving PATCHed file back" $

166167 it "works" $ do

167168 let file :: FilePath

168− file = "httpbun-data/robots.txt"

169+ file = "httpbin-data/robots.txt"

169170 contents <- TIO.readFile file

170− r <- req PATCH (httpbun /: "patch") (ReqBodyFile file) jsonResponse mempty

171+ r <- req PATCH (httpbin /: "patch") (ReqBodyFile file) jsonResponse mempty

171172 (stripFunnyHeaders . stripOrigin) (responseBody r)

172173 `shouldBe` object

173174 [ "args" .= emptyObject,

174175 "json" .= Null,

175176 "data" .= contents,

176− "url" .= ("https://httpbun.org/patch" :: Text),

177− "method" .= ("PATCH" :: Text),

177+ "url" .= ("http://localhost:1234/patch" :: Text),

178178 "headers"

179179 .= object

180180 [ "Accept-Encoding" .= ("gzip" :: Text),

@@ -193,14 +193,13 @@ spec = do

193193 "foo" =: ("bar" :: Text)

194194 <> "baz" =: (5 :: Int)

195195 <> queryFlag "quux"

196− r <- req PUT (httpbun /: "put") (ReqBodyUrlEnc params) jsonResponse mempty

196+ r <- req PUT (httpbin /: "put") (ReqBodyUrlEnc params) jsonResponse mempty

197197 (stripFunnyHeaders . stripOrigin) (responseBody r)

198198 `shouldBe` object

199199 [ "args" .= emptyObject,

200200 "json" .= Null,

201201 "data" .= ("" :: Text),

202− "url" .= ("https://httpbun.org/put" :: Text),

203− "method" .= ("PUT" :: Text),

202+ "url" .= ("http://localhost:1234/put" :: Text),

204203 "headers"

205204 .= object

206205 [ "Content-Type" .= ("application/x-www-form-urlencoded" :: Text),

@@ -219,19 +218,24 @@ spec = do

219218 responseStatusCode r `shouldBe` 200

220219 responseStatusMessage r `shouldBe` "OK"

221220

222− -- describe "receiving UTF-8 encoded Unicode data" $

223− -- it "works" $ do

224− -- r <-

225− -- req

226− -- GET

227− -- (httpbun /: "encoding" /: "utf8")

228− -- NoReqBody

229− -- bsResponse

230− -- mempty

231− -- utf8data <- B.readFile "httpbun-data/utf8.html"

232− -- responseBody r `shouldBe` utf8data

233− -- responseStatusCode r `shouldBe` 200

234− -- responseStatusMessage r `shouldBe` "OK"

221+ -- TODO /delete

222+

223+ describe "receiving UTF-8 encoded Unicode data" $

224+ it "works" $ do

225+ r <-

226+ req

227+ GET

228+ (httpbin /: "encoding" /: "utf8")

229+ NoReqBody

230+ bsResponse

231+ mempty

232+ utf8data <- B.readFile "httpbin-data/utf8.html"

233+ responseBody r `shouldBe` utf8data

234+ responseStatusCode r `shouldBe` 200

235+ responseStatusMessage r `shouldBe` "OK"

236+

237+ -- TODO /gzip

238+ -- TODO /deflate

235239

236240 describe "retrying" $

237241 it "retries as many times as specified" $ do

@@ -242,7 +246,7 @@ spec = do

242246 prepareForShit $

243247 req

244248 GET

245− (httpbun /: "status" /~ status)

249+ (httpbin /: "status" /~ status)

246250 NoReqBody

247251 ignoreResponse

248252 mempty

@@ -254,18 +258,25 @@ spec = do

254258 forM_ [400 .. 431] checkStatusCode

255259 forM_ [500 .. 511] checkStatusCode

256260

261+ -- TODO /response-headers

262+ -- TODO /redirect

263+

257264 describe "redirects" $

258265 it "follows redirects" $ do

259266 r <-

260267 req

261268 GET

262− (httpbun /: "redirect-to")

269+ (httpbin /: "redirect-to")

263270 NoReqBody

264271 ignoreResponse

265− ("url" =: ("https://httpbun.org" :: Text))

272+ ("url" =: ("https://httpbin.org" :: Text))

266273 responseStatusCode r `shouldBe` 200

267274 responseStatusMessage r `shouldBe` "OK"

268275

276+ -- TODO /relative-redicet

277+ -- TODO /absolute-redirect

278+ -- TODO /cookies

279+

269280 describe "basicAuth" $ do

270281 let user, password :: Text

271282 user = "Scooby"

@@ -276,32 +287,43 @@ spec = do

276287 prepareForShit $

277288 req

278289 GET

279− (httpbun /: "basic-auth" /~ user /~ password)

290+ (httpbin /: "basic-auth" /~ user /~ password)

280291 NoReqBody

281292 ignoreResponse

282293 mempty

283294 responseStatusCode r `shouldBe` 401

284− responseStatusMessage r `shouldBe` "Unauthorized"

295+ responseStatusMessage r `shouldBe` "UNAUTHORIZED"

285296 context "when we provide appropriate basic auth data" $

286297 it "succeeds" $ do

287298 r <-

288299 req

289300 GET

290− (httpbun /: "basic-auth" /~ user /~ password)

301+ (httpbin /: "basic-auth" /~ user /~ password)

291302 NoReqBody

292303 ignoreResponse

293− (basicAuth (T.encodeUtf8 user) (T.encodeUtf8 password))

304+ (basicAuthUnsafe (T.encodeUtf8 user) (T.encodeUtf8 password))

294305 responseStatusCode r `shouldBe` 200

295306 responseStatusMessage r `shouldBe` "OK"

296307

308+ -- TODO /hidden-basic-auth

309+ -- TODO /digest-auth

310+ -- TODO /stream

311+ -- TODO /delay

312+ -- TODO /drip

313+ -- TODO /range

314+ -- TODO /html

315+

297316 describe "robots.txt" $

298317 it "works" $ do

299− r <- req GET (httpbun /: "robots.txt") NoReqBody bsResponse mempty

300− robots <- B.readFile "httpbun-data/robots.txt"

318+ r <- req GET (httpbin /: "robots.txt") NoReqBody bsResponse mempty

319+ robots <- B.readFile "httpbin-data/robots.txt"

301320 responseBody r `shouldBe` robots

302321 responseStatusCode r `shouldBe` 200

303322 responseStatusMessage r `shouldBe` "OK"

304323

324+ -- TODO /deny

325+ -- TODO /cache

326+

305327 describe "getting random bytes" $ do

306328 it "works" $

307329 property $ \n' -> do

@@ -310,7 +332,7 @@ spec = do

310332 r <-

311333 req

312334 GET

313− (httpbun /: "bytes" /~ n)

335+ (httpbin /: "bytes" /~ n)

314336 NoReqBody

315337 lbsResponse

316338 mempty

@@ -326,27 +348,36 @@ spec = do

326348 n = 1000

327349 req

328350 GET

329− (httpbun /: "bytes" /~ n)

351+ (httpbin /: "bytes" /~ n)

330352 NoReqBody

331353 (Proxy :: Proxy (JsonResponse Value))

332354 mempty

333355 `shouldThrow` selector

334356

335−-- describe "streaming random bytes" $

336−-- it "works" $

337−-- property $ \n' -> do

338−-- let n :: Word

339−-- n = getSmall n'

340−-- r <-

341−-- req

342−-- GET

343−-- (httpbun /: "stream-bytes" /~ n)

344−-- NoReqBody

345−-- bsResponse

346−-- mempty

347−-- responseBody r `shouldSatisfy` ((== n) . fromIntegral . B.length)

348−-- responseStatusCode r `shouldBe` 200

349−-- responseStatusMessage r `shouldBe` "OK"

357+ describe "streaming random bytes" $

358+ it "works" $

359+ property $ \n' -> do

360+ let n :: Word

361+ n = getSmall n'

362+ r <-

363+ req

364+ GET

365+ (httpbin /: "stream-bytes" /~ n)

366+ NoReqBody

367+ bsResponse

368+ mempty

369+ responseBody r `shouldSatisfy` ((== n) . fromIntegral . B.length)

370+ responseStatusCode r `shouldBe` 200

371+ responseStatusMessage r `shouldBe` "OK"

372+

373+-- TODO /links

374+-- TODO /image

375+-- TODO /image/png

376+-- TODO /image/jpeg

377+-- TODO /image/webp

378+-- TODO /image/svg

379+-- TODO /forms/post

380+-- TODO /xml

350381

351382----------------------------------------------------------------------------

352383-- Instances

@@ -369,9 +400,29 @@ blindlyThrowing = runReq defaultHttpConfig {httpConfigCheckResponse = doit}

369400 where

370401 doit _ _ = error "Oops!"

371402

372−-- | 'Url' representing <https://httpbun.org>.

373−httpbun :: Url 'Https

374−httpbun = https "httpbun.org"

403+-- | 'Url' representing <https://httpbin.org>.

404+httpbin :: Url 'Http

405+httpbin = http "localhost"

406+

407+req ::

408+ ( MonadHttp m,

409+ HttpMethod method,

410+ HttpBody body,

411+ HttpResponse response,

412+ HttpBodyAllowed (AllowsBody method) (ProvidesBody body)

413+ ) =>

414+ method ->

415+ Url scheme ->

416+ body ->

417+ Proxy response ->

418+ Option scheme ->

419+ m response

420+req method url body responseProxy options =

421+ Req.req method url body responseProxy (options <> defaultOptions)

422+

423+-- | Options to apply by default.

424+defaultOptions :: Option scheme

425+defaultOptions = port 1234

375426

376427-- | Remove “origin” field from JSON value. Origin may change, we don't want

377428-- to depend on that.

@@ -412,7 +463,7 @@ stripFunnyHeaders' = \case

412463 "Baz"

413464 ]

414465

415−-- | This is a complete test case that makes use of <https://httpbun.org> to

466+-- | This is a complete test case that makes use of <https://httpbin.org> to

416467-- get various response status codes.

417468checkStatusCode :: Int -> SpecWith ()

418469checkStatusCode code =

@@ -422,7 +473,7 @@ checkStatusCode code =

422473 prepareForShit $

423474 req

424475 GET

425− (httpbun /: "status" /~ code)

476+ (httpbin /: "status" /~ code)

426477 NoReqBody

427478 ignoreResponse

428479 mempty

httpbun-tests/Spec.hs → httpbin-tests/Spec.hsrenamed

The content is the same.

req.cabal+33−30

@@ -1,11 +1,11 @@

11cabal-version: 2.4

22name: req

3−version: 3.13.1

3+version: 3.13.4

44license: BSD-3-Clause

55license-file: LICENSE.md

66maintainer: Mark Karpov <markkarpov92@gmail.com>

77author: Mark Karpov <markkarpov92@gmail.com>

8−tested-with: ghc ==9.2.8 ghc ==9.4.5 ghc ==9.6.2

8+tested-with: ghc ==9.6.3 ghc ==9.8.2 ghc ==9.10.1

99homepage: https://github.com/mrkkrp/req

1010bug-reports: https://github.com/mrkkrp/req/issues

1111synopsis: HTTP client library

@@ -13,8 +13,8 @@ description: HTTP client library.

1313category: Network, Web

1414build-type: Simple

1515data-files:

16− httpbun-data/utf8.html

17− httpbun-data/robots.txt

16+ httpbin-data/utf8.html

17+ httpbin-data/robots.txt

1818

1919extra-doc-files:

2020 CHANGELOG.md

@@ -35,29 +35,32 @@ library

3535 build-depends:

3636 aeson >=0.9 && <3,

3737 authenticate-oauth >=1.5 && <1.8,

38− base >=4.15 && <5.0,

38+ base >=4.15 && <5,

3939 blaze-builder >=0.3 && <0.5,

40− bytestring >=0.10.8 && <0.12,

40+ bytestring >=0.10.8 && <0.13,

4141 case-insensitive >=0.2 && <1.3,

42− containers >=0.5 && <0.7,

43− crypton-connection >=0.2.2 && <0.4,

42+ containers >=0.5 && <0.8,

43+ crypton-connection >=0.4.2 && <0.5,

44+ data-default-class >=0.2.0.0,

4445 exceptions >=0.6 && <0.11,

4546 http-api-data >=0.2 && <0.7,

4647 http-client >=0.7.13.1 && <0.8,

4748 http-client-tls >=0.3.2 && <0.4,

48− http-types >=0.8 && <10.0,

49+ http-types >=0.8 && <10,

4950 modern-uri >=0.3 && <0.4,

5051 monad-control >=1.0 && <1.1,

5152 mtl >=2.0 && <3.0,

5253 retry >=0.8 && <0.10,

53− template-haskell >=2.14 && <2.21,

54− text >=0.2 && <2.1,

54+ template-haskell >=2.19 && <2.23,

55+ text >=0.2 && <2.2,

5556 transformers >=0.5.3.0 && <0.7,

5657 transformers-base,

5758 unliftio-core >=0.1.1 && <0.3

5859

5960 if flag(dev)

60− ghc-options: -Wall -Werror -Wpartial-fields -Wunused-packages

61+ ghc-options:

62+ -Wall -Werror -Wpartial-fields -Wunused-packages

63+ -Wno-unused-imports

6164

6265 else

6366 ghc-options: -O2 -Wall

@@ -65,28 +68,28 @@ library

6568test-suite pure-tests

6669 type: exitcode-stdio-1.0

6770 main-is: Spec.hs

68− build-tool-depends: hspec-discover:hspec-discover >=2.0 && <3.0

71+ build-tool-depends: hspec-discover:hspec-discover >=2 && <3

6972 hs-source-dirs: pure-tests

7073 other-modules: Network.HTTP.ReqSpec

7174 default-language: GHC2021

7275 build-depends:

73− QuickCheck >=2.7 && <3.0,

76+ QuickCheck >=2.7 && <3,

7477 aeson >=0.9 && <3,

7578 base >=4.15 && <5.0,

7679 blaze-builder >=0.3 && <0.5,

77− bytestring >=0.10.8 && <0.12,

80+ bytestring >=0.10.8 && <0.13,

7881 case-insensitive >=0.2 && <1.3,

79− hspec >=2.0 && <3.0,

80− hspec-core >=2.0 && <3.0,

82+ hspec >=2.0 && <3,

83+ hspec-core >=2.0 && <3,

8184 http-api-data >=0.2 && <0.7,

8285 http-client >=0.7 && <0.8,

83− http-types >=0.8 && <10.0,

86+ http-types >=0.8 && <10,

8487 modern-uri >=0.3 && <0.4,

8588 req,

8689 retry >=0.8 && <0.10,

87− template-haskell >=2.14 && <2.21,

88− text >=0.2 && <2.1,

89− time >=1.2 && <1.13

90+ template-haskell >=2.19 && <2.23,

91+ text >=0.2 && <2.2,

92+ time >=1.2 && <1.15

9093

9194 if flag(dev)

9295 ghc-options:

@@ -96,24 +99,24 @@ test-suite pure-tests

9699 else

97100 ghc-options: -O2 -Wall

98101

99−test-suite httpbun-tests

102+test-suite httpbin-tests

100103 type: exitcode-stdio-1.0

101104 main-is: Spec.hs

102− build-tool-depends: hspec-discover:hspec-discover >=2.0 && <3.0

103− hs-source-dirs: httpbun-tests

105+ build-tool-depends: hspec-discover:hspec-discover >=2 && <3

106+ hs-source-dirs: httpbin-tests

104107 other-modules: Network.HTTP.ReqSpec

105108 default-language: GHC2021

106109 build-depends:

107− QuickCheck >=2.7 && <3.0,

110+ QuickCheck >=2.7 && <3,

108111 aeson >=2 && <3,

109− base >=4.15 && <5.0,

110− bytestring >=0.10.8 && <0.12,

112+ base >=4.15 && <5,

113+ bytestring >=0.10.8 && <0.13,

111114 hspec >=2.0 && <3.0,

112115 http-client >=0.7 && <0.8,

113− http-types >=0.8 && <10.0,

116+ http-types >=0.8 && <10,

114117 monad-control >=1.0 && <1.1,

115118 req,

116− text >=0.2 && <2.1

119+ text >=0.2 && <2.2

117120

118121 if flag(dev)

119122 ghc-options:

@@ -121,4 +124,4 @@ test-suite httpbun-tests

121124 -Wunused-packages

122125

123126 else

124− ghc-options: -O2 -Wall

127+ buildable: False