summaryrefslogtreecommitdiff
path: root/Assistant/Threads/TransferPoller.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Assistant/Threads/TransferPoller.hs')
-rw-r--r--Assistant/Threads/TransferPoller.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Assistant/Threads/TransferPoller.hs b/Assistant/Threads/TransferPoller.hs
index 71bfe3676..a5b30b4f0 100644
--- a/Assistant/Threads/TransferPoller.hs
+++ b/Assistant/Threads/TransferPoller.hs
@@ -36,8 +36,7 @@ transferPollerThread = namedThread "TransferPoller" $ do
- temp file being used for the transfer. -}
| transferDirection t == Download = do
let f = gitAnnexTmpObjectLocation (transferKey t) g
- sz <- liftIO $ catchMaybeIO $
- fromIntegral . fileSize <$> getFileStatus f
+ sz <- liftIO $ catchMaybeIO $ getFileSize f
newsize t info sz
{- Uploads don't need to be polled for when the TransferWatcher
- thread can track file modifications. -}