Fix build with aws-0.17.
This commit was sponsored by Denis Dzyubenko on Patreon.
This commit is contained in:
parent
16fde7d4a6
commit
61dccecad7
4 changed files with 7 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue