File tree Expand file tree Collapse file tree 3 files changed +7
-3
lines changed
src/Network/HTTP/Download Expand file tree Collapse file tree 3 files changed +7
-3
lines changed Original file line number Diff line number Diff line change 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
Original file line number Diff line number Diff 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
286286test-suite stack-integration-test
Original file line number Diff line number Diff line change 11resolver : lts-3.7
22extra-deps :
33- binary-tagged-0.1.1.0
4- - retry-0.7.0.1
54image :
65 container :
76 base : " fpco/ubuntu-with-libgmp:14.04"
You can’t perform that action at this time.
0 commit comments