summaryrefslogtreecommitdiff
path: root/Command/Fsck.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Fsck.hs')
-rw-r--r--Command/Fsck.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs
index 973fe2eaa..8ebc433d1 100644
--- a/Command/Fsck.hs
+++ b/Command/Fsck.hs
@@ -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
]