add TODOs

1 files changed, 6 insertions, 3 deletions

diff --git a/src/Shop/Handler.hs b/src/Shop/Handler.hs
index c3b0eda..f873535 100644
--- a/src/Shop/Handler.hs
+++ b/src/Shop/Handler.hs
@@ -9,7 +9,6 @@ module Shop.Handler where
 import           Control.Monad.Logger    (LoggingT, runStdoutLoggingT,
                                           logInfo, logWarn)
 import           Formatting              (format, (%), fixed)
---import           Formatting.Formatters   (fixed)
 import           Shop.Config
 import           Shop.Types
 import           Protolude               hiding (product, (%))
@@ -46,9 +45,13 @@ charge chargeform = do
     cfg <- ask
     -- TODO: send email
     let cid = "TODO"
-        a = "TODO"
+    -- ^ generate id (uuid)
+        a = show total
     $(logInfo) $ "Charge successfully created: \"" <> email chargeform <> "\" (" <> showPrice total <> ")"
-    return $ ChargeResponse cid a
+    return ChargeResponse
+        { chargeid = cid
+        , chargeamount = a
+        }
   where
     total = foldl (\n a -> n + quantity a * prix (product a)) 0 (articles chargeform)