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

files with only 1 linkCount may still be unlocked

Browse source 
When on crippled filesystem, or without annex.thin set.
This commit is contained in:
Joey Hess 2016-02-14 17:04:09 -04:00
parent 5b51db7645
commit 74bbdfa888
Failed to extract signature
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/Fsck.hs
View file

@ -588,7 +588,6 @@ getKeyStatus key = ifM isDirect
( return KeyUnlocked ( return KeyUnlocked
, catchDefaultIO KeyMissing $ do , catchDefaultIO KeyMissing $ do
obj <- calcRepo $ gitAnnexLocation key obj <- calcRepo $ gitAnnexLocation key
unlocked <- ((> 1) . linkCount <$> liftIO (getFileStatus obj)) unlocked <- not . null <$> Database.Keys.getAssociatedFiles key
<&&> (not . null <$> Database.Keys.getAssociatedFiles key)
return $ if unlocked then KeyUnlocked else KeyLocked return $ if unlocked then KeyUnlocked else KeyLocked
) )