From 5096cb295c9068ab02aa3aa1bf8eb70b2ed89ede Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 27 Feb 2017 15:02:38 -0400 Subject: securehash matching Added --securehash option to match files using a secure hash function, and corresponding securehash preferred content expression. This commit was sponsored by Ethan Aubin. --- Limit.hs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'Limit.hs') diff --git a/Limit.hs b/Limit.hs index 1485b4bce..97e3653b1 100644 --- a/Limit.hs +++ b/Limit.hs @@ -1,6 +1,6 @@ {- user-specified limits on files to act on - - - Copyright 2011-2016 Joey Hess + - Copyright 2011-2017 Joey Hess - - Licensed under the GNU GPL version 3 or higher. -} @@ -255,6 +255,13 @@ limitInBackend name = Right $ const $ checkKey check check key = pure $ keyVariety key == variety variety = parseKeyVariety name +{- Adds a limit to skip files not using a secure hash. -} +addSecureHash :: Annex () +addSecureHash = addLimit $ Right limitSecureHash + +limitSecureHash :: MatchFiles Annex +limitSecureHash _ = checkKey $ pure . cryptographicallySecure . keyVariety + {- Adds a limit to skip files that are too large or too small -} addLargerThan :: String -> Annex () addLargerThan = addLimit . limitSize (>) -- cgit v1.2.3