diff options
| author | Félix Sipma <felix.sipma@no-log.org> | 2018-12-15 19:19:35 +0100 |
|---|---|---|
| committer | Félix Sipma <felix.sipma@no-log.org> | 2018-12-15 19:19:35 +0100 |
| commit | d6a7ace989428724d1569f258292e579f6c8ee04 (patch) | |
| tree | f890af62033e65d446c6e4aff67bf85a1a50da1c | |
| parent | 1446b19bcbec7bb697f40ca71d301b72f3e44669 (diff) | |
Handler: add debugging log messages
| -rw-r--r-- | src/Shop/Handler.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Shop/Handler.hs b/src/Shop/Handler.hs index bcba879..c0d30de 100644 --- a/src/Shop/Handler.hs +++ b/src/Shop/Handler.hs @@ -58,8 +58,14 @@ charge chargeform = do <> email chargeform <> "> (" <> a <> ")" $(logInfo) $ toS $ encode chargeform sendSMS $ SMS (getConfigSMSApiUser cfg) (getConfigSMSApiPassword cfg) (toS $ Yaml.encode chargeform) + $(logInfo) $ toS "SMS sent: <" + <> phone chargeform <> "> (" <> a <> ")" sendCustomMail' cfg (chmail cfg) + $(logInfo) $ toS "Admin email sent: <" + <> email chargeform <> "> (" <> a <> ")" sendCustomMail' cfg (comail cfg) + $(logInfo) $ toS "Client email sent: <" + <> email chargeform <> "> (" <> a <> ")" return "Success" -- ^ TODO -- ChargeResponse |