sendGoogleAnalyticsTracking uaCode SendWelcomeMail (JobValueUserMail mail) = do
  maybeSignup <- runDB . getBy $ UniqueEmail mail
  sendTrackingEvent uaCode maybeSignup "welcome+mail" Nothing
sendGoogleAnalyticsTracking uaCode SendWelcomeMail (JobValueUserMail mail) = do
  maybeSignup <- runDB . getBy $ UniqueEmail mail
  sendTrackingEvent uaCode maybeSignup "welcome+mail" Nothing
sendGoogleAnalyticsTracking uaCode SendWelcomeMail (JobValueUserMail mail) = do
  maybeSignup <- runDB . getBy $ UniqueEmail mail
  sendTrackingEvent uaCode maybeSignup "welcome+mail" Nothing