diff options
author | Joey Hess <joey@kitenet.net> | 2014-03-29 14:43:34 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-03-29 14:43:34 -0400 |
commit | fe19e15040630587afcd23abf13713a642ee2bd5 (patch) | |
tree | 5427bb00fda49ca5e345549b855b98f913a9e46f /Types/FileMatcher.hs | |
parent | d00d06135c986b07acdf1478d202e0fb7a9926ca (diff) |
reorg matcher types; no non-type code changes
Diffstat (limited to 'Types/FileMatcher.hs')
-rw-r--r-- | Types/FileMatcher.hs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/Types/FileMatcher.hs b/Types/FileMatcher.hs index e2d4eadc1b..03a86a38c6 100644 --- a/Types/FileMatcher.hs +++ b/Types/FileMatcher.hs @@ -7,7 +7,12 @@ module Types.FileMatcher where +import Types.UUID (UUID) import Types.Key (Key) +import Utility.Matcher (Matcher, Token) + +import qualified Data.Map as M +import qualified Data.Set as S data MatchInfo = MatchingFile FileInfo @@ -17,3 +22,19 @@ data FileInfo = FileInfo { relFile :: FilePath -- may be relative to cwd , matchFile :: FilePath -- filepath to match on; may be relative to top } + +type FileMatcherMap a = M.Map UUID (Utility.Matcher.Matcher (S.Set UUID -> MatchInfo -> a Bool)) + +type MkLimit a = String -> Either String (MatchFiles a) + +type AssumeNotPresent = S.Set UUID + +type MatchFiles a = AssumeNotPresent -> MatchInfo -> a Bool + +type FileMatcher a = Matcher (MatchFiles a) + +-- This is a matcher that can have tokens added to it while it's being +-- built, and once complete is compiled to an unchangable matcher. +data ExpandableMatcher a + = BuildingMatcher [Token (MatchInfo -> a Bool)] + | CompleteMatcher (Matcher (MatchInfo -> a Bool)) |