ppEventExpr (EventOr expr1 expr2)
  = ppEventExpr expr1 <+> text "or" <+> ppEventExpr expr2
ppEventExpr (EventOr expr1 expr2)
  = ppEventExpr expr1 <+> text "or" <+> ppEventExpr expr2
ppEventExpr (EventOr expr1 expr2)
  = ppEventExpr expr1 <+> text "or" <+> ppEventExpr expr2