padRight :: Int -> String -> PP.Doc
padRight n s = PP.text (s ++ replicate (n - length s) ' ')
padRight :: Int -> String -> PP.Doc
padRight n s = PP.text (s ++ replicate (n - length s) ' ')
padRight n s = PP.text (s ++ replicate (n - length s) ' ')