diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-11-03 16:20:51 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-03 16:23:00 -0400 |
| commit | 52639afc15095c1bc82fb3f87c29a22c2e4b2303 (patch) | |
| tree | b7a64b27fb487ca733fad3c5dc64ff1b668b897d /Remote/S3.hs | |
| parent | 07542a2e5b3f758863bbe969253a694d13deba48 (diff) | |
adjust version check
I assume 0.10.6 will have the fix for the bug I reported, which got fixed
in master already..
Diffstat (limited to 'Remote/S3.hs')
| -rw-r--r-- | Remote/S3.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index 26f7a7a9a..e9879b9f4 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -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 |