add units
This commit is contained in:
parent
961fa377d9
commit
9ec1d6b077
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue