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

consistency

Browse source
This commit is contained in:
Joey Hess 2010-10-12 16:40:17 -04:00
parent 570899ed0c
commit 921313bcc7
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Backend.hs
View file

@ -56,7 +56,7 @@ retrieveFile state file dest = do
case (result) of
Nothing -> return False
Just b -> do
key <- lookupKey b state file
key <- lookupKey state b file
(retrieveKeyFile b) state key dest
{- Drops the key for a file from the backend that has it. -}
@ -66,7 +66,7 @@ dropFile state file = do
case (result) of
Nothing -> return Nothing
Just b -> do
key <- lookupKey b state file
key <- lookupKey state b file
(removeKey b) state key
removeFile $ backendFile state b file
return $ Just key
@ -95,8 +95,8 @@ checkBackend :: Backend -> State -> FilePath -> IO (Bool)
checkBackend backend state file = doesFileExist $ backendFile state backend file
{- Looks up the key a backend uses for an already annexed file. -}
lookupKey :: Backend -> State -> FilePath -> IO Key
lookupKey backend state file = do
lookupKey :: State -> Backend -> FilePath -> IO Key
lookupKey state backend file = do
k <- readFile (backendFile state backend file)
return $ chomp k
where