diff options
| author | Félix Sipma <felix.sipma@no-log.org> | 2018-12-16 19:14:40 +0100 |
|---|---|---|
| committer | Félix Sipma <felix.sipma@no-log.org> | 2018-12-16 19:14:40 +0100 |
| commit | 2964171475417034a15789bf97525e17b64280ca (patch) | |
| tree | 72dec5f20a4287a42e49f1a830528cdcc49916f6 | |
| parent | 486ec5e53726da580354624777059ec4220a8dcc (diff) | |
Handler: reenable email sending
| -rw-r--r-- | src/Shop/Handler.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Shop/Handler.hs b/src/Shop/Handler.hs index cd9289d..33471a9 100644 --- a/src/Shop/Handler.hs +++ b/src/Shop/Handler.hs @@ -62,12 +62,10 @@ charge chargeform = do $(logInfo) $ toS "SMS sent: <" <> phone chargeform <> "> (" <> a <> ")" uuid <- liftIO nextRandom - -- sendCustomMail' cfg (chmail uuid cfg) - -- ^ TODO: comment for now + sendCustomMail' cfg (chmail uuid cfg) $(logInfo) $ toS "Admin email sent: <" <> email chargeform <> "> (" <> a <> ") " <> toS (UUID.toString uuid) - -- sendCustomMail' cfg (comail cfg) - -- ^ TODO: comment for now + sendCustomMail' cfg (comail cfg) $(logInfo) $ toS "Client email sent: <" <> email chargeform <> "> (" <> a <> ")" return $ toS (UUID.toString uuid) |