sendEmail :: (Tupled a, Tupled b) =>
  a ->
  b ->
  IO (Maybe MailSuccess)
sendEmail auth message =
  let fullUrl = baseUrl <> "mail.send.json"
      response = makeRequest POST fullUrl (asTuple auth <> asTuple message) in
  Aeson.decode <$> response
sendEmail :: (Tupled a, Tupled b) =>
  a ->
  b ->
  IO (Maybe MailSuccess)
sendEmail auth message =
  let fullUrl = baseUrl <> "mail.send.json"
      response = makeRequest POST fullUrl (asTuple auth <> asTuple message) in
  Aeson.decode <$> response
sendEmail auth message =
  let fullUrl = baseUrl <> "mail.send.json"
      response = makeRequest POST fullUrl (asTuple auth <> asTuple message) in
  Aeson.decode <$> response