mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor

Browse source
This commit is contained in:
Joey Hess 2013-10-28 14:05:55 -04:00
parent 16045d15fe
commit 049e80e865
4 changed files with 22 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Limit.hs
View file

@ -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'