hide decimal places that are 0s

1 files changed, 3 insertions, 1 deletions

diff --git a/repgoal.hs b/repgoal.hs
index d8624e5..2170073 100755
--- a/repgoal.hs
+++ b/repgoal.hs
@@ -95,7 +95,9 @@ computeOneRepMax :: Performance -> Rational
 computeOneRepMax Achieved{..} = achievedWeight * (realToFrac achievedReps * 0.0333 + 1)
 
 showRational :: Rational -> String
-showRational = printf "%.3f" . (realToFrac :: Rational -> Float)
+showRational n = printf format $ (realToFrac :: Rational -> Float) $ n
+  where
+    format = if floor (n * 10) `mod` 10 == (0 :: Integer) then "%.0f" else "%.2f"
 
 drawUI :: () -> [Widget ()]
 drawUI () = [a]