diff options
| -rw-r--r-- | Command/Fsck.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 410e41562..afc0f6307 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -588,7 +588,6 @@ getKeyStatus key = ifM isDirect ( return KeyUnlocked , catchDefaultIO KeyMissing $ do obj <- calcRepo $ gitAnnexLocation key - unlocked <- ((> 1) . linkCount <$> liftIO (getFileStatus obj)) - <&&> (not . null <$> Database.Keys.getAssociatedFiles key) + unlocked <- not . null <$> Database.Keys.getAssociatedFiles key return $ if unlocked then KeyUnlocked else KeyLocked ) |