aboutsummaryrefslogtreecommitdiff
path: root/Limit.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-10 12:59:45 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-10 12:59:45 -0400
commitcf30e43a0d5d0c3c76d25daca678ec8cc80dc814 (patch)
tree18212fc4269da063889d85fcbad0bb6c9d37a086 /Limit.hs
parentcd8d030092b5213e69c99575af71759d0d77abbb (diff)
rename --ingroup to --inallgroup
Diffstat (limited to 'Limit.hs')
-rw-r--r--Limit.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/Limit.hs b/Limit.hs
index f9e8de270..f39e2d6b8 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -139,13 +139,13 @@ limitCopies want = case split ":" want of
{- Adds a limit to skip files not believed to be present in all
- repositories in the specified group. -}
-addInGroup :: String -> Annex ()
-addInGroup groupname = do
+addInAllGroup :: String -> Annex ()
+addInAllGroup groupname = do
m <- groupMap
- addLimit $ limitInGroup m groupname
+ addLimit $ limitInAllGroup m groupname
-limitInGroup :: GroupMap -> MkLimit
-limitInGroup m groupname
+limitInAllGroup :: GroupMap -> MkLimit
+limitInAllGroup m groupname
| S.null want = Right $ const $ const $ return True
| otherwise = Right $ \notpresent ->
Backend.lookupFile >=> check notpresent