summaryrefslogtreecommitdiff
path: root/Backend
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-07-01 15:24:07 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-07-01 15:30:42 -0400
commitcdbcd6f495580ee927a85af0581661b486c8ef77 (patch)
tree87f3f882bb543bbed05147ce416805387a45082d /Backend
parentceb887d82669b3ec694f31a899b59eefe0f5f352 (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.hs6
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