From 310a49a76d8de49d00f6f44cf373576716d06b0e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 1 Mar 2024 14:39:01 -0400 Subject: [PATCH] nub the equivilant key list If somehow the same key gets listed in the log twice, avoid doing double checksumming. --- Logs/EquivilantKeys.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Logs/EquivilantKeys.hs b/Logs/EquivilantKeys.hs index bf15f72364..106e7893dd 100644 --- a/Logs/EquivilantKeys.hs +++ b/Logs/EquivilantKeys.hs @@ -21,7 +21,7 @@ import qualified Annex.Branch getEquivilantKeys :: Key -> Annex [Key] getEquivilantKeys key = do config <- Annex.getGitConfig - mapMaybe (deserializeKey' . fromLogInfo) + nub . mapMaybe (deserializeKey' . fromLogInfo) <$> presentLogInfo (equivilantKeysLogFile config key) setEquivilantKey :: Key -> Key -> Annex ()