diff options
author | Joey Hess <joey@kitenet.net> | 2013-01-09 18:53:59 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-01-09 18:53:59 -0400 |
commit | c81444bea5d4c90681434dff5fc00948333b4a10 (patch) | |
tree | c7cb1a7d5117455fd4f14054b613fe0f6fa0fe96 /Remote.hs | |
parent | 0c893f8743bab81077e3ee0fed0993b746d7a269 (diff) |
drop: Suggest using git annex move when numcopies prevents dropping a file.
Diffstat (limited to 'Remote.hs')
-rw-r--r-- | Remote.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 |