From 17e04a5593eb41462fa7fb1a8f34af527d249ab7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 1 Aug 2014 15:09:49 -0400 Subject: testremote: New command to test uploads/downloads to a remote. This only performs some basic tests so far; no testing of chunking or resuming. Also, the existing encryption type of the remote is used; it would be good later to derive an encrypted and a non-encrypted version of the remote and test them both. This commit was sponsored by Joseph Liu. --- Utility/Metered.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Utility/Metered.hs') diff --git a/Utility/Metered.hs b/Utility/Metered.hs index cc07f9c35..4618aecfe 100644 --- a/Utility/Metered.hs +++ b/Utility/Metered.hs @@ -24,6 +24,9 @@ import Data.Int - far, *not* an incremental amount since the last call. -} type MeterUpdate = (BytesProcessed -> IO ()) +nullMeterUpdate :: MeterUpdate +nullMeterUpdate _ = return () + {- Total number of bytes processed so far. -} newtype BytesProcessed = BytesProcessed Integer deriving (Eq, Ord, Show) -- cgit v1.2.3