Fix build with aws-0.17.

This commit was sponsored by Denis Dzyubenko on Patreon.
This commit is contained in:
Joey Hess 2017-10-11 10:57:20 -04:00
parent 16fde7d4a6
commit 61dccecad7
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 7 additions and 1 deletions

View file

@ -497,6 +497,9 @@ withS3HandleMaybe c gc u a = do
Just creds -> do
awscreds <- liftIO $ genCredentials creds
let awscfg = AWS.Configuration AWS.Timestamp awscreds debugMapper
#ifdef MIN_VERSION_aws(0,11,0)
Nothing
#endif
bracketIO (newManager managerSettings) closeManager $ \mgr ->
a $ Just $ S3Handle mgr awscfg s3cfg
Nothing -> a Nothing