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

annex.largefiles support for clean filter

Browse source
This commit is contained in:
Joey Hess 2015-12-04 14:10:18 -04:00
parent d349693269
commit fdfda7b7bb
Failed to extract signature
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Command/Clean.hs
View file

@ -11,6 +11,7 @@ import Common.Annex
import Command
import Annex.Content
import Annex.MetaData
import Annex.FileMatcher
import Types.KeySource
import Types.Key
import Backend
@ -39,8 +40,9 @@ start [] = error "clean filter run without filename; upgrade git"
start _ = error "clean filter passed multiple filenames"
shouldAnnex :: FilePath -> Annex Bool
shouldAnnex _ = return True
-- TODO check annex.largefiles
shouldAnnex file = do
matcher <- largeFilesMatcher
checkFileMatcher matcher file
ingest :: FilePath -> Annex Key
ingest file = do
@ -54,7 +56,7 @@ ingest file = do
<$> genKey source backend
-- Hard link (or copy) file content to annex
-- to prevent it from being lost when git checks out
-- a branch not contaning this file.
-- a branch not containing this file.
unlessM (linkAnnex k file) $
error "Problem adding file to the annex"
genMetaData k file