renderDestrPrec p (ConD con fields) | p = parens r
                                    | otherwise = r
  where
    r = hsep $ pretty con : map (renderDestrPrec True) fields
renderDestrPrec p (ConD con fields) | p = parens r
                                    | otherwise = r
  where
    r = hsep $ pretty con : map (renderDestrPrec True) fields
renderDestrPrec p (ConD con fields) | p = parens r
                                    | otherwise = r
  where
    r = hsep $ pretty con : map (renderDestrPrec True) fields