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 ' ' ..]))