diff options
| author | Félix Sipma <felix.sipma@no-log.org> | 2018-12-15 23:05:20 +0100 |
|---|---|---|
| committer | Félix Sipma <felix.sipma@no-log.org> | 2018-12-15 23:05:20 +0100 |
| commit | 8695f8596acdcd9e905e77f7facc7a3b3771dc30 (patch) | |
| tree | 1205d2714efa14087986e17d4e3f57ba4a45e08c | |
| parent | 62214a7b5fc8b09b20e01dbb8e6bf7d89577fc3b (diff) | |
Handler: avoid email sending for now...
| -rw-r--r-- | src/Shop/Handler.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Shop/Handler.hs b/src/Shop/Handler.hs index 66b8b6e..b5672a1 100644 --- a/src/Shop/Handler.hs +++ b/src/Shop/Handler.hs @@ -61,10 +61,12 @@ charge chargeform = do $(logInfo) $ toS "SMS sent: <" <> phone chargeform <> "> (" <> a <> ")" uuid <- liftIO nextRandom - sendCustomMail' cfg (chmail uuid cfg) + -- sendCustomMail' cfg (chmail uuid cfg) + -- ^ TODO: comment for now $(logInfo) $ toS "Admin email sent: <" <> email chargeform <> "> (" <> a <> ") " <> toS (UUID.toString uuid) - sendCustomMail' cfg (comail cfg) + -- sendCustomMail' cfg (comail cfg) + -- ^ TODO: comment for now $(logInfo) $ toS "Client email sent: <" <> email chargeform <> "> (" <> a <> ")" return $ toS (UUID.toString uuid) |