th-printf-0.7: src/StrUtils.hs

module StrUtils where

import           Data.Semigroup                 ( (<>) )
import           Buildable

justifyLeft :: Buildable a => Int -> Char -> a -> a
justifyLeft n c s | diff <= 0 = s
                  | otherwise = s <> repeatN diff c
  where diff = n - size s

justifyRight :: Buildable a => Int -> Char -> a -> a
justifyRight n c s | diff <= 0 = s
                   | otherwise = repeatN diff c <> s
  where diff = n - size s