add units

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

View file

@ -214,7 +214,7 @@ configuredRetry = do
if retries < maxretries
then do
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
return True
else return False