diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-15 13:46:16 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-15 13:46:16 -0400 |
| commit | 5703b97ceb3febbb521914aab7cb57f506e77529 (patch) | |
| tree | 31d22289bf4a43542185afe88285b531e439b774 /Remote/S3.hs | |
| parent | 9d492cd0c4944ea346734e7b46ebf0a26f06e529 (diff) | |
update to dav 0.1, and basic uploading is working!
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 b05de6ad4..67a64e464 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -112,8 +112,8 @@ s3Setup u c = handlehost $ M.lookup "host" c store :: Remote -> Key -> AssociatedFile -> MeterUpdate -> Annex Bool store r k _f _p = s3Action r False $ \(conn, bucket) -> do - dest <- inRepo $ gitAnnexLocation k - res <- liftIO $ storeHelper (conn, bucket) r k dest + src <- inRepo $ gitAnnexLocation k + res <- liftIO $ storeHelper (conn, bucket) r k src s3Bool res storeEncrypted :: Remote -> (Cipher, Key) -> Key -> MeterUpdate -> Annex Bool |