diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-10-31 12:33:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-10-31 12:33:41 -0400 |
| commit | cc1ea8f84463c7e333bfa17a815f250d8d088841 (patch) | |
| tree | aa4868f5b59edf4cbb3b34d5ae16f19d06804efa /Command/Fsck.hs | |
| parent | e09dd6f306b3f69718c77a03364ee9e51a51bb3b (diff) | |
Removed the setkey command, and added a setcontent command with a more useful interface.
Diffstat (limited to 'Command/Fsck.hs')
| -rw-r--r-- | Command/Fsck.hs | 7 |
1 files changed, 5 insertions, 2 deletions
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 |