From efec2521cc14b3dec895066c9e7c16e740ab12ec Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 14 Apr 2015 16:35:10 -0400 Subject: add filename to progress bar, and display ok/failed at end This needed plumbing an AssociatedFile through retrieveKeyFileCheap. --- Types/Remote.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Types/Remote.hs') diff --git a/Types/Remote.hs b/Types/Remote.hs index 5df08c775..87a964ca7 100644 --- a/Types/Remote.hs +++ b/Types/Remote.hs @@ -67,7 +67,7 @@ data RemoteA a = Remote { -- directly to the file, and not to an intermediate file.) retrieveKeyFile :: Key -> AssociatedFile -> FilePath -> MeterUpdate -> a Bool, -- retrieves a key's contents to a tmp file, if it can be done cheaply - retrieveKeyFileCheap :: Key -> FilePath -> a Bool, + retrieveKeyFileCheap :: Key -> AssociatedFile -> FilePath -> a Bool, -- removes a key's contents (succeeds if the contents are not present) removeKey :: Key -> a Bool, -- Checks if a key is present in the remote. -- cgit v1.2.3