From 55b178a6bac24d52358174808e039338d94f5979 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 10 Mar 2017 15:03:33 -0400 Subject: [PATCH] minor cleanup --- Command/Fsck.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 973fe2eaad..8ebc433d18 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 ]