mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build warning

Browse source
This commit is contained in:
Joey Hess 2023-02-06 16:30:50 -04:00
parent 04ec726d3b
commit 143de24769
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Remote/S3.hs
View file

@ -919,7 +919,6 @@ s3Configuration c = cfg
} }
where where
h = fromJust $ getRemoteConfigValue hostField c h = fromJust $ getRemoteConfigValue hostField c
r = encodeBS <$> getRemoteConfigValue regionField c
datacenter = fromJust $ getRemoteConfigValue datacenterField c datacenter = fromJust $ getRemoteConfigValue datacenterField c
-- When the default S3 host is configured, connect directly to -- When the default S3 host is configured, connect directly to
-- the S3 endpoint for the configured datacenter. -- the S3 endpoint for the configured datacenter.
@ -961,6 +960,8 @@ s3Configuration c = cfg
_ -> (S3.s3 proto endpoint False) _ -> (S3.s3 proto endpoint False)
#if MIN_VERSION_aws(0,24,0) #if MIN_VERSION_aws(0,24,0)
{ S3.s3Region = r } { S3.s3Region = r }
r = encodeBS <$> getRemoteConfigValue regionField c
#endif #endif
data S3Info = S3Info data S3Info = S3Info