diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-02-06 16:03:02 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-02-06 16:03:02 -0400 |
commit | e24a7140fd8a4198ae470081a936c170df6ee495 (patch) | |
tree | defd80ae1bd15f94fbe0cfeb41f992c12711ed40 /Limit.hs | |
parent | 4c8cfa61bfb6fa1d9482a6b07b04d9ec11be4d0d (diff) |
relFile does not have to be relative; rename to currFile
Diffstat (limited to 'Limit.hs')
-rw-r--r-- | Limit.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |