Added --smallerthan and --largerthan limits

This commit is contained in:
Joey Hess 2012-10-08 13:39:18 -04:00
parent 71fd18a97f
commit 7cd81bd978
6 changed files with 38 additions and 9 deletions

View file

@ -21,7 +21,7 @@ import Common.Annex
import qualified Annex.Branch
import qualified Annex
import Logs.UUIDBased
import Limit (MatchFiles, AssumeNotPresent, limitInclude, limitExclude, limitIn, limitCopies, limitInBackend)
import Limit
import qualified Utility.Matcher
import Annex.UUID
import Git.FilePath
@ -96,6 +96,8 @@ parseToken t
, ("in", limitIn)
, ("copies", limitCopies)
, ("backend", limitInBackend)
, ("largerthan", limitSize (>))
, ("smallerthan", limitSize (<))
]
use a = Utility.Matcher.Operation <$> a v