diff options
author | Joey Hess <joey@kitenet.net> | 2013-04-03 03:52:41 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-04-03 03:52:41 -0400 |
commit | 6543d5406c64bb00a58e74305ec9ca09a49faf0b (patch) | |
tree | 5e33ceb3ea5b5bf5ad4f2cbb7d08b19cb1026897 /Messages.hs | |
parent | f0dd3c6c1624cb5441eab175c6f5a683d3806885 (diff) |
hlint
Diffstat (limited to 'Messages.hs')
-rw-r--r-- | Messages.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |