sendGoogleAnalyticsTracking :: Text -> JobAction -> JobValue -> HandlerT App IO ()
sendGoogleAnalyticsTracking uaCode SendActiviatonMail (JobValueUserMail mail) = do
  maybeSignup <- runDB . getBy $ UniqueEmail mail
  sendTrackingEvent uaCode maybeSignup "activation+mail" Nothing
sendGoogleAnalyticsTracking :: Text -> JobAction -> JobValue -> HandlerT App IO ()
sendGoogleAnalyticsTracking uaCode SendActiviatonMail (JobValueUserMail mail) = do
  maybeSignup <- runDB . getBy $ UniqueEmail mail
  sendTrackingEvent uaCode maybeSignup "activation+mail" Nothing
sendGoogleAnalyticsTracking uaCode SendActiviatonMail (JobValueUserMail mail) = do
  maybeSignup <- runDB . getBy $ UniqueEmail mail
  sendTrackingEvent uaCode maybeSignup "activation+mail" Nothing