mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

nub the equivilant key list

Browse source 
If somehow the same key gets listed in the log twice, avoid doing double
checksumming.
This commit is contained in:
Joey Hess 2024-03-01 14:39:01 -04:00
parent 0ac8962b1b
commit 310a49a76d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Logs/EquivilantKeys.hs
View file

@ -21,7 +21,7 @@ import qualified Annex.Branch
getEquivilantKeys :: Key -> Annex [Key] getEquivilantKeys :: Key -> Annex [Key]
getEquivilantKeys key = do getEquivilantKeys key = do
config <- Annex.getGitConfig config <- Annex.getGitConfig
mapMaybe (deserializeKey' . fromLogInfo) nub . mapMaybe (deserializeKey' . fromLogInfo)
<$> presentLogInfo (equivilantKeysLogFile config key) <$> presentLogInfo (equivilantKeysLogFile config key)
setEquivilantKey :: Key -> Key -> Annex () setEquivilantKey :: Key -> Key -> Annex ()