Skip to content

Commit 2798368

Browse files
committed
Restore compatibility with retry-0.6 (commercialhaskell/stackage#975)
1 parent 1283a90 commit 2798368

File tree

3 files changed

+7
-3
lines changed

3 files changed

+7
-3
lines changed

src/Network/HTTP/Download/Verified.hs

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,4 @@
1+
{-# LANGUAGE CPP #-}
12
{-# LANGUAGE DeriveDataTypeable #-}
23
{-# LANGUAGE MultiParamTypeClasses #-}
34
{-# LANGUAGE OverloadedStrings #-}
@@ -201,7 +202,11 @@ verifiedDownload DownloadRequest{..} destpath progressSink = do
201202
liftIO $ whenM' getShouldDownload $ do
202203
createDirectoryIfMissing True dir
203204
withBinaryFile fptmp WriteMode $ \h ->
205+
#if MIN_VERSION_retry(0,7,0)
204206
recovering drRetryPolicy handlers $ const $
207+
#else
208+
recovering drRetryPolicy handlers $
209+
#endif
205210
flip runReaderT env $
206211
withResponse req (go h)
207212
renameFile fptmp fp

stack.cabal

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -173,7 +173,7 @@ library
173173
, pretty
174174
, process >= 1.2.0.0
175175
, resourcet >= 1.1.4.1
176-
, retry >= 0.7
176+
, retry >= 0.6 && < 0.8
177177
, safe >= 0.3
178178
, semigroups >= 0.5
179179
, split
@@ -280,7 +280,7 @@ test-suite stack-test
280280
, optparse-applicative
281281
, bytestring
282282
, QuickCheck
283-
, retry >= 0.7
283+
, retry >= 0.6 && < 0.8
284284
default-language: Haskell2010
285285

286286
test-suite stack-integration-test

stack.yaml

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,6 @@
11
resolver: lts-3.7
22
extra-deps:
33
- binary-tagged-0.1.1.0
4-
- retry-0.7.0.1
54
image:
65
container:
76
base: "fpco/ubuntu-with-libgmp:14.04"

0 commit comments

Comments
 (0)