ppEventControl :: EventControl -> Doc
ppEventControl ctrl
  = char '@' <>
    case ctrl of
      EventControlIdent x  -> parens $ commasep (map ppIdent x)
      EventControlExpr e   -> parens $ commasep (map ppEventExpr e)
      EventControlWildCard -> text "(*)"
ppEventControl :: EventControl -> Doc
ppEventControl ctrl
  = char '@' <>
    case ctrl of
      EventControlIdent x  -> parens $ commasep (map ppIdent x)
      EventControlExpr e   -> parens $ commasep (map ppEventExpr e)
      EventControlWildCard -> text "(*)"
ppEventControl ctrl
  = char '@' <>
    case ctrl of
      EventControlIdent x  -> parens $ commasep (map ppIdent x)
      EventControlExpr e   -> parens $ commasep (map ppEventExpr e)
      EventControlWildCard -> text "(*)"