fsck improvements
* fsck: Check if annex.numcopies is satisfied. * fsck: Verify the sha1 of files when the SHA1 backend is used. * fsck: Verify the size of files when the WORM backend is used. * fsck: Allow specifying individual files to fsk if fscking everything is not desired. * fsck: Fix bug, introduced in 0.04, in detection of unused data.
This commit is contained in:
parent
d4d65a3c92
commit
5fa25a812a
15 changed files with 236 additions and 31 deletions
|
@ -23,6 +23,7 @@ module Backend (
|
|||
retrieveKeyFile,
|
||||
removeKey,
|
||||
hasKey,
|
||||
fsckKey,
|
||||
lookupFile,
|
||||
chooseBackends
|
||||
) where
|
||||
|
@ -105,7 +106,7 @@ retrieveKeyFile backend key dest = (Internals.retrieveKeyFile backend) key dest
|
|||
|
||||
{- Removes a key from a backend. -}
|
||||
removeKey :: Backend -> Key -> Annex Bool
|
||||
removeKey backend key = (Internals.removeKey backend) key
|
||||
removeKey backend key = (Internals.removeKey backend) key
|
||||
|
||||
{- Checks if a key is present in its backend. -}
|
||||
hasKey :: Key -> Annex Bool
|
||||
|
@ -113,6 +114,10 @@ hasKey key = do
|
|||
bs <- Annex.supportedBackends
|
||||
(Internals.hasKey (lookupBackendName bs $ backendName key)) key
|
||||
|
||||
{- Checks a key's backend for problems. -}
|
||||
fsckKey :: Backend -> Key -> Annex Bool
|
||||
fsckKey backend key = (Internals.fsckKey backend) key
|
||||
|
||||
{- Looks up the key and backend corresponding to an annexed file,
|
||||
- by examining what the file symlinks to. -}
|
||||
lookupFile :: FilePath -> Annex (Maybe (Key, Backend))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue