From cc1ea8f84463c7e333bfa17a815f250d8d088841 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Oct 2011 12:33:41 -0400 Subject: Removed the setkey command, and added a setcontent command with a more useful interface. --- Command/Fsck.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Command/Fsck.hs') diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 073652d2c..8d6f03d76 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -38,7 +38,7 @@ perform key file backend numcopies = check [ verifyLocationLog key file , checkKeySize key , checkKeyNumCopies key file numcopies - , (Types.Backend.fsckKey backend) key + , checkBackend backend key ] {- To fsck a bare repository, fsck each key in the location log. -} @@ -65,7 +65,7 @@ performBare :: Key -> Backend Annex -> CommandPerform performBare key backend = check [ verifyLocationLog key (show key) , checkKeySize key - , (Types.Backend.fsckKey backend) key + , checkBackend backend key ] check :: [Annex Bool] -> CommandPerform @@ -134,6 +134,9 @@ checkKeySize key = do return False +checkBackend :: Backend Annex -> Key -> Annex Bool +checkBackend backend key = (Types.Backend.fsckKey backend) key + checkKeyNumCopies :: Key -> FilePath -> Maybe Int -> Annex Bool checkKeyNumCopies key file numcopies = do needed <- getNumCopies numcopies -- cgit v1.2.3