move nubbing into function whose algo needs a nubbed list

This commit is contained in:
Joey Hess 2015-04-30 14:11:29 -04:00
parent 607eed0de2
commit 9f3e51dd51
2 changed files with 4 additions and 3 deletions

View file

@ -72,7 +72,7 @@ performLocal key afile numcopies knownpresentremote = lockContent key $ \content
(remotes, trusteduuids) <- Remote.keyPossibilitiesTrusted key
let trusteduuids' = case knownpresentremote of
Nothing -> trusteduuids
Just r -> nub (Remote.uuid r:trusteduuids)
Just r -> Remote.uuid r:trusteduuids
untrusteduuids <- trustGet UnTrusted
let tocheck = Remote.remotesWithoutUUID remotes (trusteduuids'++untrusteduuids)
u <- getUUID