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

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