diff options
| author | Félix Sipma <felix.sipma@no-log.org> | 2018-03-14 12:17:13 +0100 |
|---|---|---|
| committer | Félix Sipma <felix.sipma@no-log.org> | 2018-03-14 12:17:13 +0100 |
| commit | d75061f83713c9c56d00549bafe4178c0dea87cd (patch) | |
| tree | 011f8e23f1d890f30ad412ee895b7533e197b007 /src/Shop/Handler.hs | |
| parent | 11db142d27ee7ff2ac73d1899724ba39a4d6475a (diff) | |
log email recipients
Diffstat (limited to 'src/Shop/Handler.hs')
| -rw-r--r-- | src/Shop/Handler.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Shop/Handler.hs b/src/Shop/Handler.hs index e11af72..c888218 100644 --- a/src/Shop/Handler.hs +++ b/src/Shop/Handler.hs @@ -243,6 +243,6 @@ sendCustomMail server port username password msg = do if authSucceed then do liftIO $ sendMail (toS $ addressEmail (mailFrom msg)) (map (toS . addressEmail) (mailTo msg)) (toS rendered) connection - $(logInfo) $ "Email successfully sent on " <> toS server + $(logInfo) $ "Email successfully sent on " <> toS server <> " (recipients: <" <> T.intercalate "> ,<" (map (toS . addressEmail) (mailTo msg)) <> ">)" else $(logError) $ "SMTP authentication error on " <> toS server liftIO $ closeSMTP connection |