From cf30e43a0d5d0c3c76d25daca678ec8cc80dc814 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 10 Oct 2012 12:59:45 -0400 Subject: rename --ingroup to --inallgroup --- Limit.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Limit.hs') 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 -- cgit v1.2.3