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