ppNamedConnection :: NamedConnection -> Doc
ppNamedConnection (NamedConnection x expr (CommentItem ""))
  = period <> ppIdent x <> parens (ppExpr expr)
ppNamedConnection :: NamedConnection -> Doc
ppNamedConnection (NamedConnection x expr (CommentItem ""))
  = period <> ppIdent x <> parens (ppExpr expr)
ppNamedConnection (NamedConnection x expr (CommentItem ""))
  = period <> ppIdent x <> parens (ppExpr expr)