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

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