From a0e573a3cc56226a4f9e8c3b011a5365c2519802 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 12 Nov 2018 11:53:44 -0400 Subject: [PATCH] comment typo --- P2P/Annex.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/P2P/Annex.hs b/P2P/Annex.hs index daeb47cc4a..233e8aff11 100644 --- a/P2P/Annex.hs +++ b/P2P/Annex.hs @@ -58,7 +58,7 @@ runLocal runst runner a = case a of Right (Left e) -> return $ Left e Right (Right ok) -> runner (next ok) -- If the content is not present, or the transfer doesn't - -- run for any other action, the sender action still must + -- run for any other reason, the sender action still must -- be run, so is given empty and Invalid data. let fallback = runner (sender mempty (return Invalid)) v <- tryNonAsync $ prepSendAnnex k