diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-03-04 03:17:03 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-03-04 03:17:25 -0400 |
| commit | 9856c24a5996f2d493c559cd9ea6b27b8127694a (patch) | |
| tree | de50fea60e3e0eeb0cb8303cbf25bb2a0415034b /Remote/S3.hs | |
| parent | 8fc533643d0acd5cddbdfede1a438a84c57329ba (diff) | |
Add progress bar display to the directory special remote.
So far I've only written progress bars for sending files, not yet
receiving.
No longer uses external cp at all. ByteString IO is fast enough.
Diffstat (limited to 'Remote/S3.hs')
| -rw-r--r-- | Remote/S3.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index 812345b00..523edef65 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -144,9 +144,7 @@ storeHelper (conn, bucket) r k file = do case fromJust $ M.lookup "storageclass" $ fromJust $ config r of "REDUCED_REDUNDANCY" -> REDUCED_REDUNDANCY _ -> STANDARD - getsize = do - s <- liftIO $ getFileStatus file - return $ fileSize s + getsize = fileSize <$> (liftIO $ getFileStatus file) xheaders = filter isxheader $ M.assocs $ fromJust $ config r isxheader (h, _) = "x-amz-" `isPrefixOf` h |