summaryrefslogtreecommitdiff
path: root/Limit.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Limit.hs')
-rw-r--r--Limit.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/Limit.hs b/Limit.hs
index 7b26f9e58..1485b4bce 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -19,6 +19,7 @@ import Annex.Action
import Annex.UUID
import Logs.Trust
import Annex.NumCopies
+import Types.Key
import Types.TrustLevel
import Types.Group
import Types.FileMatcher
@@ -251,7 +252,8 @@ addInBackend = addLimit . limitInBackend
limitInBackend :: MkLimit Annex
limitInBackend name = Right $ const $ checkKey check
where
- check key = pure $ keyBackendName key == name
+ check key = pure $ keyVariety key == variety
+ variety = parseKeyVariety name
{- Adds a limit to skip files that are too large or too small -}
addLargerThan :: String -> Annex ()