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
Show stats 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.Core as AWS
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 Data.Conduit.List as CL
#endif
@ -173,7 +173,7 @@ store r h = fileStorer $ \k f p -> do
rbody <- liftIO $ httpBodyStorer f p
void $ sendS3Handle h $ putObject h (bucketObject (hinfo h) k) rbody
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 object = bucketObject info h