summaryrefslogtreecommitdiff
path: root/Remote/S3.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-03-04 03:17:03 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-03-04 03:17:25 -0400
commit9856c24a5996f2d493c559cd9ea6b27b8127694a (patch)
treede50fea60e3e0eeb0cb8303cbf25bb2a0415034b /Remote/S3.hs
parent8fc533643d0acd5cddbdfede1a438a84c57329ba (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.hs4
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