diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-03-10 15:03:33 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-03-10 15:03:33 -0400 |
| commit | 71a0cb7c17c003ae91207f81f956897e349c7de7 (patch) | |
| tree | ed964e6bd40c37250ac96838631da52de55e527c /Command | |
| parent | 6d85e3bbdf34054697ae4a2faf522e2127e22947 (diff) | |
minor cleanup
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Fsck.hs | 4 |
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 ] |