From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 4 Dec 2015 18:10:18 +0000 (-0400)
Subject: annex.largefiles support for clean filter
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~320^2~184^2~100
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=fdfda7b7bbc8c93baa821ae260f63485ee67960b;p=git-annex.git

annex.largefiles support for clean filter
---

diff --git a/Command/Clean.hs b/Command/Clean.hs
index 0a8e438d1d..1793ddedb7 100644
--- a/Command/Clean.hs
+++ b/Command/Clean.hs
@@ -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