summaryrefslogtreecommitdiff
path: root/Annex/FileMatcher.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-05-24 23:07:26 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-05-24 23:07:26 -0400
commitde99b5f96633c6e46fe290dd327417436d86a340 (patch)
treeae7ed653b2da31319e79b5acf4e9dd6ad2e0c675 /Annex/FileMatcher.hs
parentb2a2c996ad935e87b1f28eb77d12a895986073af (diff)
refactor
Diffstat (limited to 'Annex/FileMatcher.hs')
-rw-r--r--Annex/FileMatcher.hs7
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