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

adjust version check

Browse source 
I assume 0.10.6 will have the fix for the bug I reported, which got fixed
in master already..
This commit is contained in:
Joey Hess 2014-11-03 16:20:51 -04:00
parent 5c3d9d6caa
commit 6a965cf8d7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/S3.hs
View file

@ -13,7 +13,7 @@ module Remote.S3 (remote, iaHost, configIA, iaItemUrl) where
import qualified Aws as AWS import qualified Aws as AWS
import qualified Aws.Core as AWS import qualified Aws.Core as AWS
import qualified Aws.S3 as S3 import qualified Aws.S3 as S3
#if MIN_VERSION_aws(0,10,4) #if MIN_VERSION_aws(0,10,6)
import qualified Aws.S3.Commands.Multipart as Multipart import qualified Aws.S3.Commands.Multipart as Multipart
import qualified Data.Conduit.List as CL import qualified Data.Conduit.List as CL
#endif #endif
@ -173,7 +173,7 @@ store r h = fileStorer $ \k f p -> do
rbody <- liftIO $ httpBodyStorer f p rbody <- liftIO $ httpBodyStorer f p
void $ sendS3Handle h $ putObject h (bucketObject (hinfo h) k) rbody void $ sendS3Handle h $ putObject h (bucketObject (hinfo h) k) rbody
multipartupload sz k f p = do multipartupload sz k f p = do
#if MIN_VERSION_aws(0,10,4) #if MIN_VERSION_aws(0,10,6)
let info = hinfo h let info = hinfo h
let object = bucketObject info h let object = bucketObject info h