mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

bring back display of keys

Browse source 
in fsck -q, that's the only way to know what file it means
This commit is contained in:
Joey Hess 2011-01-26 20:08:37 -04:00
parent ee2e94f087
commit 3cb5cb6bf6
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
Backend/File.hs
View file

@ -184,22 +184,24 @@ checkKeyNumCopies key numcopies = do
if present < needed
then do
ppuuids <- prettyPrintUUIDs untrustedlocations
warning $ missingNote present needed ppuuids
warning $ missingNote (show key) present needed ppuuids
return False
else return True
where
missingNote :: Int -> Int -> String -> String
missingNote 0 _ [] =
"** No known copies of this file exist!"
missingNote 0 _ untrusted =
"Only these untrusted locations may have copies of this file!" ++
missingNote :: String -> Int -> Int -> String -> String
missingNote file 0 _ [] =
"** No known copies of " ++ file ++ " exist!"
missingNote file 0 _ untrusted =
"Only these untrusted locations may have copies of " ++ file ++
"\n-- they could lose it at any time!" ++
"\n" ++ untrusted ++
"Back it up to trusted locations with git-annex copy."
missingNote present needed [] =
missingNote file present needed [] =
"Only " ++ show present ++ " of " ++ show needed ++
" trustworthy copies of this file exist." ++
" trustworthy copies of " ++ file ++ " exist." ++
"\nBack it up with git-annex copy."
missingNote present needed untrusted = missingNote present needed [] ++
missingNote file present needed untrusted =
missingNote file present needed [] ++
"\nThe following untrusted copies may also exist: " ++
"\n" ++ untrusted