diff options
| author | Félix Sipma <felix.sipma@no-log.org> | 2019-04-26 13:27:00 +0200 |
|---|---|---|
| committer | Félix Sipma <felix.sipma@no-log.org> | 2019-04-26 13:27:00 +0200 |
| commit | 964304f2a0f62081c649b145fa30351edbf05509 (patch) | |
| tree | 8629dba54f2f82fa3d374e153540ee579479a770 | |
| parent | e0be251ff6090def17584145704b0890d43cd6fc (diff) | |
fix typo
| -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 af7ff61..72c1252 100644 --- a/src/Shop/Handler.hs +++ b/src/Shop/Handler.hs @@ -92,7 +92,7 @@ charge chargeform = do sendCustomMail' cfg = sendCustomMail (getConfigSMTPServer cfg) (getConfigSMTPPort cfg) (getConfigSMTPUser cfg) (getConfigSMTPPassword cfg) showPrice :: Int -> Text -showPrice p = toS $ fromIntegral p <> "€" +showPrice p = show p <> "€" chargeMail :: Address -> Address -> ChargeForm -> Text -> UUID.UUID -> Mail chargeMail from to chargeform stotal uuid = addAttachmentBS |