prettyField :: String -> PP.Doc -> PP.Doc
prettyField str v = padRight 20 str <> ":" <+> v
prettyField :: String -> PP.Doc -> PP.Doc
prettyField str v = padRight 20 str <> ":" <+> v
prettyField str v = padRight 20 str <> ":" <+> v