-- ----------------------------------------------

-- | If an 'Event' is interesting enough to be considered for publication.
isInterestingEvent :: Event -> Bool
isInterestingEvent e
  =  isInterestingPush p
  || isInterestingPR p
  || isInterestingIssue p
  || isInterestingIssueComment p
  || isInterestingReview p
  || isInterestingReviewComment p
  || isInterestingStatus p
  || isPingEvent p
  where p = evtPayload e
isInterestingEvent :: Event -> Bool
isInterestingEvent e
  =  isInterestingPush p
  || isInterestingPR p
  || isInterestingIssue p
  || isInterestingIssueComment p
  || isInterestingReview p
  || isInterestingReviewComment p
  || isInterestingStatus p
  || isPingEvent p
  where p = evtPayload e
isInterestingEvent e
  =  isInterestingPush p
  || isInterestingPR p
  || isInterestingIssue p
  || isInterestingIssueComment p
  || isInterestingReview p
  || isInterestingReviewComment p
  || isInterestingStatus p
  || isPingEvent p
  where p = evtPayload e