diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-07-01 15:24:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-07-01 15:30:42 -0400 |
| commit | cdbcd6f495580ee927a85af0581661b486c8ef77 (patch) | |
| tree | 87f3f882bb543bbed05147ce416805387a45082d /Backend | |
| parent | ceb887d82669b3ec694f31a899b59eefe0f5f352 (diff) | |
add web special remote
Generalized LocationLog to PresenceLog, and use a presence log to record
urls for the web special remote.
Diffstat (limited to 'Backend')
| -rw-r--r-- | Backend/File.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Backend/File.hs b/Backend/File.hs index b8d3bb65a..174da4e6d 100644 --- a/Backend/File.hs +++ b/Backend/File.hs @@ -135,8 +135,8 @@ showLocations key exclude = do untrusteduuids <- trustGet UnTrusted let uuidswanted = filteruuids uuids (u:exclude++untrusteduuids) let uuidsskipped = filteruuids uuids (u:exclude++uuidswanted) - ppuuidswanted <- prettyPrintUUIDs uuidswanted - ppuuidsskipped <- prettyPrintUUIDs uuidsskipped + ppuuidswanted <- Remote.prettyPrintUUIDs uuidswanted + ppuuidsskipped <- Remote.prettyPrintUUIDs uuidsskipped showLongNote $ message ppuuidswanted ppuuidsskipped where filteruuids list x = filter (`notElem` x) list @@ -195,7 +195,7 @@ checkKeyNumCopies key file numcopies = do let present = length safelocations if present < needed then do - ppuuids <- prettyPrintUUIDs untrustedlocations + ppuuids <- Remote.prettyPrintUUIDs untrustedlocations warning $ missingNote (filename file key) present needed ppuuids return False else return True |