diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-08-15 13:56:12 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-08-15 13:56:12 -0400 |
| commit | 0c4c9db9e8860d05eab5b9766d8719ceec1b0b9d (patch) | |
| tree | 32d0d726c47cc3b4ca5bb3e6d7f4ae169b13bb42 /Remote | |
| parent | d4b2c4b56ca97c7e51f4fd122d54e23fa7207078 (diff) | |
Disable http-client's default 30 second response timeout when HEADing an url to check if it exists. Some web servers take quite a long time to answer a HEAD request.
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/S3.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index a341da488..2d2819824 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -441,13 +441,11 @@ withS3HandleMaybe c gc u a = do Just creds -> do awscreds <- liftIO $ genCredentials creds let awscfg = AWS.Configuration AWS.Timestamp awscreds debugMapper - bracketIO (newManager httpcfg) closeManager $ \mgr -> + bracketIO (newManager managerSettings) closeManager $ \mgr -> a $ Just $ S3Handle mgr awscfg s3cfg Nothing -> a Nothing where s3cfg = s3Configuration c - httpcfg = managerSettings - { managerResponseTimeout = responseTimeoutNone } s3Configuration :: RemoteConfig -> S3.S3Configuration AWS.NormalQuery s3Configuration c = cfg |