ppParameter :: Parameter -> Doc
ppParameter (Parameter x expr)
  = period <> ppIdent x <> parens (ppExpr expr)
ppParameter :: Parameter -> Doc
ppParameter (Parameter x expr)
  = period <> ppIdent x <> parens (ppExpr expr)
ppParameter (Parameter x expr)
  = period <> ppIdent x <> parens (ppExpr expr)