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

minor cleanup

Browse source
This commit is contained in:
Joey Hess 2017-03-10 15:03:33 -04:00
parent 71a05b0d25
commit 55b178a6ba
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Command/Fsck.hs
View file

@ -193,8 +193,8 @@ performKey :: Key -> Backend -> NumCopies -> Annex Bool
performKey key backend numcopies = do
keystatus <- getKeyStatus key
check
[ verifyLocationLog key keystatus ActionItemKey
, checkKeySize key keystatus ActionItemKey
[ verifyLocationLog key keystatus (mkActionItem key)
, checkKeySize key keystatus (mkActionItem key)
, checkBackend backend key keystatus (AssociatedFile Nothing)
, checkKeyNumCopies key (AssociatedFile Nothing) numcopies
]