succinct-0.0.0.1: components/succinct-core/src/Data/Succinct/BalancedParens/Internal/Show.hs

module Data.Succinct.BalancedParens.Internal.Show
  ( showPadded
  ) where

showPadded :: Show a => Int -> a -> String
showPadded n a = reverse (take n (reverse (show a) ++ [' ', ' ' ..]))