mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add units

Browse source
This commit is contained in:
Joey Hess 2018-03-29 13:31:53 -04:00
parent 961fa377d9
commit 9ec1d6b077
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex/Transfer.hs
View file

@ -214,7 +214,7 @@ configuredRetry = do
if retries < maxretries if retries < maxretries
then do then do
let retrydelay = Seconds (initretrydelay * 2^(retries-1)) let retrydelay = Seconds (initretrydelay * 2^(retries-1))
showSideAction $ "Delaying " ++ show (fromSeconds retrydelay) ++ " before retrying." showSideAction $ "Delaying " ++ show (fromSeconds retrydelay) ++ "s before retrying."
liftIO $ threadDelaySeconds retrydelay liftIO $ threadDelaySeconds retrydelay
return True return True
else return False else return False