appMailFrom :: Handler Mail.Address
appMailFrom = do
  domain <- appDomainName
  return $ Mail.Address (Just "Qua-kit") ("noreply@" <> domain)

-- | returns domain name of server
appMailFrom :: Handler Mail.Address
appMailFrom = do
  domain <- appDomainName
  return $ Mail.Address (Just "Qua-kit") ("noreply@" <> domain)

-- | returns domain name of server
appMailFrom = do
  domain <- appDomainName
  return $ Mail.Address (Just "Qua-kit") ("noreply@" <> domain)

-- | returns domain name of server