summaryrefslogtreecommitdiff
path: root/Limit.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-02-06 16:03:02 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-02-06 16:03:02 -0400
commite24a7140fd8a4198ae470081a936c170df6ee495 (patch)
treedefd80ae1bd15f94fbe0cfeb41f992c12711ed40 /Limit.hs
parent4c8cfa61bfb6fa1d9482a6b07b04d9ec11be4d0d (diff)
relFile does not have to be relative; rename to currFile
Diffstat (limited to 'Limit.hs')
-rw-r--r--Limit.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Limit.hs b/Limit.hs
index ec21b7287..030ee6a5f 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -239,7 +239,7 @@ limitSize vs s = case readSize dataUnits s of
checkkey sz key = return $ keySize key `vs` Just sz
check _ sz (Just key) = checkkey sz key
check fi sz Nothing = do
- filesize <- liftIO $ catchMaybeIO $ getFileSize (relFile fi)
+ filesize <- liftIO $ catchMaybeIO $ getFileSize (currFile fi)
return $ filesize `vs` Just sz
addMetaData :: String -> Annex ()
@@ -271,7 +271,7 @@ addTimeLimit s = do
else return True
lookupFileKey :: FileInfo -> Annex (Maybe Key)
-lookupFileKey = Backend.lookupFile . relFile
+lookupFileKey = Backend.lookupFile . currFile
checkKey :: (Key -> Annex Bool) -> MatchInfo -> Annex Bool
checkKey a (MatchingFile fi) = lookupFileKey fi >>= maybe (return False) a