ppEventDecl :: EventDecl -> Doc
ppEventDecl (EventDecl vars)
  = text "event" <+> ppIdents vars <> semi
ppEventDecl :: EventDecl -> Doc
ppEventDecl (EventDecl vars)
  = text "event" <+> ppIdents vars <> semi
ppEventDecl (EventDecl vars)
  = text "event" <+> ppIdents vars <> semi