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

fsck works

Browse source
This commit is contained in:
Joey Hess 2010-11-07 18:22:25 -04:00
parent 316264f3e8
commit 009873e0eb
2 changed files with 29 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Backend.hs
View file

@ -107,7 +107,7 @@ retrieveKeyFile backend key dest = (Internals.retrieveKeyFile backend) key dest
removeKey :: Backend -> Key -> Annex Bool
removeKey backend key = (Internals.removeKey backend) key
{- Checks if a backend has its key. -}
{- Checks if a key is present in its backend. -}
hasKey :: Key -> Annex Bool
hasKey key = do
bs <- Annex.supportedBackends