diff options
Diffstat (limited to 'Utility/Metered.hs')
| -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 c34e931a4..60dcf7c74 100644 --- a/Utility/Metered.hs +++ b/Utility/Metered.hs @@ -29,6 +29,9 @@ type MeterUpdate = (BytesProcessed -> IO ()) nullMeterUpdate :: MeterUpdate nullMeterUpdate _ = return () +combineMeterUpdate :: MeterUpdate -> MeterUpdate -> MeterUpdate +combineMeterUpdate a b = \n -> a n >> b n + {- Total number of bytes processed so far. -} newtype BytesProcessed = BytesProcessed Integer deriving (Eq, Ord, Show) |