summaryrefslogtreecommitdiff
path: root/Remote.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-01-09 18:53:59 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-01-09 18:53:59 -0400
commitc81444bea5d4c90681434dff5fc00948333b4a10 (patch)
treec7cb1a7d5117455fd4f14054b613fe0f6fa0fe96 /Remote.hs
parent0c893f8743bab81077e3ee0fed0993b746d7a269 (diff)
drop: Suggest using git annex move when numcopies prevents dropping a file.
Diffstat (limited to 'Remote.hs')
-rw-r--r--Remote.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Remote.hs b/Remote.hs
index 8b1d7cd61..456716c6e 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -199,8 +199,8 @@ keyPossibilities' key trusted = do
return (sort validremotes, validtrusteduuids)
{- Displays known locations of a key. -}
-showLocations :: Key -> [UUID] -> Annex ()
-showLocations key exclude = do
+showLocations :: Key -> [UUID] -> String -> Annex ()
+showLocations key exclude nolocmsg = do
u <- getUUID
uuids <- keyLocations key
untrusteduuids <- trustGet UnTrusted
@@ -211,7 +211,7 @@ showLocations key exclude = do
showLongNote $ message ppuuidswanted ppuuidsskipped
where
filteruuids l x = filter (`notElem` x) l
- message [] [] = "No other repository is known to contain the file."
+ message [] [] = nolocmsg
message rs [] = "Try making some of these repositories available:\n" ++ rs
message [] us = "Also these untrusted repositories may contain the file:\n" ++ us
message rs us = message rs [] ++ message [] us