relFile does not have to be relative; rename to currFile
This commit is contained in:
parent
dfab5e6ff4
commit
b94eb9b22c
4 changed files with 8 additions and 6 deletions
4
Limit.hs
4
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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue