diff options
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 1c2afd4..236e779 100644 --- a/src/Main.hs +++ b/src/Main.hs | |||
| @@ -583,6 +583,6 @@ printVals = withFocus $ \focusId -> do | |||
| 583 | printAvg (str, formula) = do | 583 | printAvg (str, formula) = do |
| 584 | result <- focusState (gFocus' . eStats) (findAverage [name] formula) | 584 | result <- focusState (gFocus' . eStats) (findAverage [name] formula) |
| 585 | case result of | 585 | case result of |
| 586 | Just avg -> shellPutStrLn $ printf "%*s: %.2f" maxLength (CI.original str) (fromRational avg :: Double) | 586 | Just avg -> shellPutStrLn $ printf "%*s: %5.1f" maxLength (CI.original str) (fromRational avg :: Double) |
| 587 | Nothing -> return () | 587 | Nothing -> return () |
| 588 | mapM_ printAvg $ Map.toList sheet | 588 | mapM_ printAvg $ Map.toList sheet |