diff options
| -rw-r--r-- | Messages/Progress.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Messages/Progress.hs b/Messages/Progress.hs index 2cef9a759..f6541c191 100644 --- a/Messages/Progress.hs +++ b/Messages/Progress.hs @@ -64,7 +64,7 @@ metered othermeter key a = case keySize key of meter <- liftIO $ newMeter progress "B" 25 (renderNums binaryOpts 1) return (progress, meter) - nometer = a (const noop) + nometer = a $ combinemeter (const noop) combinemeter m = case othermeter of Nothing -> m |