diff options
Diffstat (limited to 'Remote')
-rw-r--r-- | Remote/S3.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index 396d2c388..bfb80b61f 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -362,7 +362,7 @@ checkPresentExportS3 r info _k loc = -- S3 has no move primitive; copy and delete. renameExportS3 :: Remote -> S3Info -> Key -> ExportLocation -> ExportLocation -> Annex Bool -renameExportS3 r info _k src dest = catchNonAsync go (\e -> warning (show e) >> return False) +renameExportS3 r info _k src dest = catchNonAsync go (\_ -> return False) where go = withS3Handle (config r) (gitconfig r) (uuid r) $ \h -> do let co = S3.copyObject (bucket info) dstobject |