From 6543d5406c64bb00a58e74305ec9ca09a49faf0b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 3 Apr 2013 03:52:41 -0400 Subject: hlint --- Messages.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Messages.hs') diff --git a/Messages.hs b/Messages.hs index 13b786a31..cc82b9050 100644 --- a/Messages.hs +++ b/Messages.hs @@ -71,7 +71,7 @@ showProgress = handle q $ {- Shows a progress meter while performing a transfer of a key. - The action is passed a callback to use to update the meter. -} -metered :: (Maybe MeterUpdate) -> Key -> (MeterUpdate -> Annex a) -> Annex a +metered :: Maybe MeterUpdate -> Key -> (MeterUpdate -> Annex a) -> Annex a metered combinemeterupdate key a = go (keySize key) where go (Just size) = meteredBytes combinemeterupdate size a @@ -79,7 +79,7 @@ metered combinemeterupdate key a = go (keySize key) {- Shows a progress meter while performing an action on a given number - of bytes. -} -meteredBytes :: (Maybe MeterUpdate) -> Integer -> (MeterUpdate -> Annex a) -> Annex a +meteredBytes :: Maybe MeterUpdate -> Integer -> (MeterUpdate -> Annex a) -> Annex a meteredBytes combinemeterupdate size a = withOutputType go where go NormalOutput = do -- cgit v1.2.3