mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

more state

Browse source
This commit is contained in:
Joey Hess 2010-10-12 16:10:15 -04:00
parent 2ac47a3a59
commit 20acda0423
5 changed files with 12 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Backend.hs
View file

@ -68,7 +68,7 @@ retrieveFile backends state file dest = do
Nothing -> return False
Just b -> do
key <- lookupKey b state file
(retrieveKeyFile b) key dest
(retrieveKeyFile b) state key dest
{- Drops the key for a file from the backend that has it. -}
dropFile :: [Backend] -> State -> FilePath -> IO (Maybe Key)
@ -78,7 +78,7 @@ dropFile backends state file = do
Nothing -> return Nothing
Just b -> do
key <- lookupKey b state file
(removeKey b) key
(removeKey b) state key
removeFile $ backendFile b state file
return $ Just key