From 23cc315c38842c993fb1888e9426ef9826134945 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 3 Feb 2016 16:58:36 -0400 Subject: matchexpression: Added --largefiles option to parse an annex.largefiles expression. --- Types/FileMatcher.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Types/FileMatcher.hs') diff --git a/Types/FileMatcher.hs b/Types/FileMatcher.hs index be7ac97bd1..ecf4fbbd8b 100644 --- a/Types/FileMatcher.hs +++ b/Types/FileMatcher.hs @@ -19,7 +19,9 @@ import qualified Data.Set as S data MatchInfo = MatchingFile FileInfo | MatchingKey Key - | MatchingInfo (OptInfo FilePath) (OptInfo Key) (OptInfo FileSize) + | MatchingInfo (OptInfo FilePath) (OptInfo Key) (OptInfo FileSize) (OptInfo MimeType) + +type MimeType = String data FileInfo = FileInfo { currFile :: FilePath -- cgit v1.2.3