summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFélix Sipma <felix.sipma@no-log.org>2019-04-26 13:11:06 +0200
committerFélix Sipma <felix.sipma@no-log.org>2019-04-26 13:11:42 +0200
commite0be251ff6090def17584145704b0890d43cd6fc (patch)
tree11f9954ea6107c7c0595183716ee6567b5cc27b6
parent2964171475417034a15789bf97525e17b64280ca (diff)
update showPrice: amount is already in €
-rw-r--r--src/Shop/Handler.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Shop/Handler.hs b/src/Shop/Handler.hs
index 33471a9..af7ff61 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 $ format (fixed 2) (fromIntegral p / 100) <> "€"
+showPrice p = toS $ fromIntegral p <> "€"
chargeMail :: Address -> Address -> ChargeForm -> Text -> UUID.UUID -> Mail
chargeMail from to chargeform stotal uuid = addAttachmentBS