  config <- fmap mailConfig (ask :: (ReaderT a IO) a)
  liftIO $ forkIO $ ML.sendMailWithLogin' (server config) (fromInteger (port config)) (login config) (password config) mail

from       = Address (Just "Code Qualified")  "<EMAIL>"
to         = [Address (Just "<NAME>") "<EMAIL>"]
cc         = []
bcc        = []