From 61dbad505d648f13394018c31ce2d718c175007e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 20 Jan 2012 13:23:11 -0400 Subject: fsck --from remote --fast Avoids expensive file transfers, at the expense of checking file size and/or contents. Required some reworking of the remote code. --- Types/Remote.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Types') diff --git a/Types/Remote.hs b/Types/Remote.hs index d524ea2ca..003dd5342 100644 --- a/Types/Remote.hs +++ b/Types/Remote.hs @@ -43,8 +43,10 @@ data RemoteA a = Remote { cost :: Int, -- Transfers a key to the remote. storeKey :: Key -> a Bool, - -- retrieves a key's contents to a file (possibly a tmp file) - retrieveKeyFile :: Key -> Bool -> FilePath -> a Bool, + -- retrieves a key's contents to a file + retrieveKeyFile :: Key -> FilePath -> a Bool, + -- retrieves a key's contents to a tmp file, if it can be done cheaply + retrieveKeyFileCheap :: Key -> FilePath -> a Bool, -- removes a key's contents removeKey :: Key -> a Bool, -- Checks if a key is present in the remote; if the remote -- cgit v1.2.3