ppNamedConnection (NamedConnection x expr cs)
  = ppItem cs $$ period <> ppIdent x <> parens (ppExpr expr)
ppNamedConnection (NamedConnection x expr cs)
  = ppItem cs $$ period <> ppIdent x <> parens (ppExpr expr)
ppNamedConnection (NamedConnection x expr cs)
  = ppItem cs $$ period <> ppIdent x <> parens (ppExpr expr)