From 9ec1d6b07773c0bc1cb45fb698d1c49d4e0e8974 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 29 Mar 2018 13:31:53 -0400 Subject: [PATCH] add units --- Annex/Transfer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs index f3ddc24341..673825fb21 100644 --- a/Annex/Transfer.hs +++ b/Annex/Transfer.hs @@ -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