diff options
Diffstat (limited to 'Utility')
| -rw-r--r-- | Utility/Metered.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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) |