aboutsummaryrefslogtreecommitdiff
path: root/Limit.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-04-12 14:19:34 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-04-12 14:19:34 -0400
commit9c585954aeba1ead782ca7d91e4695270266e851 (patch)
tree528a0723815d2e069f0130f4b162669f1fcc97a5 /Limit.hs
parent7ffc39da51a2606166ba1ed0897145bb906439f5 (diff)
Fix bug in annex.largefiles mimetype= matching when git-annex is run in a subdirectory of the repository.
Diffstat (limited to 'Limit.hs')
-rw-r--r--Limit.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Limit.hs b/Limit.hs
index dc38b172d..4bd5dd59e 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -104,7 +104,7 @@ matchMagic (Just magic) glob = Right $ const go
cglob = compileGlob glob CaseSensative -- memoized
go (MatchingKey _) = pure False
go (MatchingFile fi) = liftIO $ catchBoolIO $
- matchGlob cglob <$> magicFile magic (matchFile fi)
+ matchGlob cglob <$> magicFile magic (currFile fi)
go (MatchingInfo _ _ _ mimeval) = matchGlob cglob <$> getInfo mimeval
matchMagic Nothing _ = Left "unable to load magic database; \"mimetype\" cannot be used"
#endif