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

In .gitattributes, the git-annex-numcopies attribute can be used to control the number of copies to retain of different types of files.

Browse source
This commit is contained in:
Joey Hess 2010-11-28 15:28:20 -04:00
parent 92e5d28ca8
commit 653ad35a9f
14 changed files with 87 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Command/Fsck.hs
View file

@ -11,19 +11,22 @@ import Command
import qualified Backend
import Types
import Messages
import Utility
seek :: [SubCmdSeek]
seek = [withAll withFilesInGit start]
seek = [withAll (withAttrFilesInGit "git-annex-numcopies") start]
{- Checks a file's backend data for problems. -}
start :: SubCmdStartString
start file = isAnnexed file $ \(key, backend) -> do
start :: SubCmdStartAttrFile
start (file, attr) = isAnnexed file $ \(key, backend) -> do
showStart "fsck" file
return $ Just $ perform key backend
return $ Just $ perform key backend numcopies
where
numcopies = readMaybe attr :: Maybe Int
perform :: Key -> Backend -> SubCmdPerform
perform key backend = do
success <- Backend.fsckKey backend key
perform :: Key -> Backend -> Maybe Int -> SubCmdPerform
perform key backend numcopies = do
success <- Backend.fsckKey backend key numcopies
if success
then return $ Just $ return True
else return Nothing