diff options
author | Joey Hess <joey@kitenet.net> | 2013-05-24 23:07:26 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-05-24 23:07:26 -0400 |
commit | de99b5f96633c6e46fe290dd327417436d86a340 (patch) | |
tree | ae7ed653b2da31319e79b5acf4e9dd6ad2e0c675 /Annex/FileMatcher.hs | |
parent | b2a2c996ad935e87b1f28eb77d12a895986073af (diff) |
refactor
Diffstat (limited to 'Annex/FileMatcher.hs')
-rw-r--r-- | Annex/FileMatcher.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Annex/FileMatcher.hs b/Annex/FileMatcher.hs index cbf6f873b..3abba1055 100644 --- a/Annex/FileMatcher.hs +++ b/Annex/FileMatcher.hs @@ -17,6 +17,7 @@ import Logs.Group import Logs.Remote import Annex.UUID import qualified Annex +import Types.FileMatcher import Git.FilePath import Types.Remote (RemoteConfig) @@ -33,9 +34,9 @@ checkFileMatcher' matcher file notpresent def | isEmpty matcher = return def | otherwise = do matchfile <- getTopFilePath <$> inRepo (toTopFilePath file) - let fi = Annex.FileInfo - { Annex.matchFile = matchfile - , Annex.relFile = file + let fi = FileInfo + { matchFile = matchfile + , relFile = file } matchMrun matcher $ \a -> a notpresent fi |