2013-05-25 17:51:27 +00:00
|
|
|
{- git-annex file matcher types
|
|
|
|
-
|
|
|
|
- Copyright 2013 Joey Hess <joey@kitenet.net>
|
|
|
|
-
|
|
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
|
|
-}
|
|
|
|
|
|
|
|
module Types.FileMatcher where
|
|
|
|
|
2014-01-18 18:51:55 +00:00
|
|
|
import Types.Key (Key)
|
|
|
|
|
|
|
|
data MatchInfo
|
|
|
|
= MatchingFile FileInfo
|
|
|
|
| MatchingKey Key
|
|
|
|
|
2013-05-25 17:51:27 +00:00
|
|
|
data FileInfo = FileInfo
|
|
|
|
{ relFile :: FilePath -- may be relative to cwd
|
|
|
|
, matchFile :: FilePath -- filepath to match on; may be relative to top
|
|
|
|
}
|