prettyTypes :: Map.Map String Int -> Doc
prettyTypes = ppMap text (\ i -> if i < 1 then empty else parens (pretty i))
  (const id) sepByCommas (<>)
prettyTypes :: Map.Map String Int -> Doc
prettyTypes = ppMap text (\ i -> if i < 1 then empty else parens (pretty i))
  (const id) sepByCommas (<>)
prettyTypes = ppMap text (\ i -> if i < 1 then empty else parens (pretty i))
  (const id) sepByCommas (<>)