diff options
Diffstat (limited to 'src/Main.hs')
-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 |