don't show totals in lifetime stats

2019-12-15 12:27:06 -05:00
parent 84c487dba5
commit 2b9a21c28b
4 changed files with 57 additions and 14 deletions
@@ -26,6 +26,7 @@ module Mtlstats.Format
  , left
  , right
  , centre
+  , padRight
  , overlay
  , month
  , labelTable
@@ -87,6 +88,16 @@ centre n str = let
  pad  = replicate pLen ' '
  in take n $ pad ++ str ++ repeat ' '

+-- | Pads text on the right with spaces to fit a minimum width
+padRight
+  :: Int
+  -- ^ The width to pad to
+  -> String
+  -- ^ The text to pad
+  -> String
+padRight width str =
+  overlay str $ replicate width ' '
+
 -- | Overlays one string on top of another
 overlay
  :: String