diff options
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 |