move nubbing into function whose algo needs a nubbed list
This commit is contained in:
parent
607eed0de2
commit
9f3e51dd51
2 changed files with 4 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue