From 52639afc15095c1bc82fb3f87c29a22c2e4b2303 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 3 Nov 2014 16:20:51 -0400 Subject: adjust version check I assume 0.10.6 will have the fix for the bug I reported, which got fixed in master already.. --- Remote/S3.hs | 4 ++-- 1 file 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 -- cgit v1.2.3