summaryrefslogtreecommitdiff
path: root/Limit.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-10-28 14:05:55 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-10-28 14:05:55 -0400
commit061fbfb37e02a9a9cb42396cce63d9b67d6a9c6e (patch)
tree6d8ea2522fac733bc20e85aa50b7320c77be5eec /Limit.hs
parent8fdc1813592d4ea72cd22c438b0357b9968fd867 (diff)
refactor
Diffstat (limited to 'Limit.hs')
-rw-r--r--Limit.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/Limit.hs b/Limit.hs
index 826b5e72b..f3586e029 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -27,6 +27,7 @@ import Types.TrustLevel
import Types.Key
import Types.Group
import Types.FileMatcher
+import Types.Limit
import Logs.Group
import Utility.HumanTime
import Utility.DataUnits
@@ -41,10 +42,6 @@ import Types.FileMatcher
#endif
#endif
-type MatchFiles = AssumeNotPresent -> FileInfo -> Annex Bool
-type MkLimit = String -> Either String MatchFiles
-type AssumeNotPresent = S.Set UUID
-
{- Checks if there are user-specified limits. -}
limited :: Annex Bool
limited = (not . Utility.Matcher.isEmpty) <$> getMatcher'