sendGoogleAnalyticsTracking uaCode SendStepAchievedMail (JobValueStepNumber mail stepNumber) = do
  maybeSignup <- runDB . getBy $ UniqueEmail mail
  let step = T.pack $ show stepNumber
  sendTrackingEvent uaCode maybeSignup "step+achieved" (Just step)
sendGoogleAnalyticsTracking uaCode SendStepAchievedMail (JobValueStepNumber mail stepNumber) = do
  maybeSignup <- runDB . getBy $ UniqueEmail mail
  let step = T.pack $ show stepNumber
  sendTrackingEvent uaCode maybeSignup "step+achieved" (Just step)
sendGoogleAnalyticsTracking uaCode SendStepAchievedMail (JobValueStepNumber mail stepNumber) = do
  maybeSignup <- runDB . getBy $ UniqueEmail mail
  let step = T.pack $ show stepNumber
  sendTrackingEvent uaCode maybeSignup "step+achieved" (Just step)