summaryrefslogtreecommitdiff
path: root/src/Shop/Types.hs
diff options
context:
space:
mode:
authorFélix Sipma <felix.sipma@no-log.org>2018-02-17 11:21:27 +0100
committerFélix Sipma <felix.sipma@no-log.org>2018-02-17 11:21:27 +0100
commiteecc33687d6fda8caa2a3fa2868a54b1d4e4bd44 (patch)
treed6c4cc255e385c39108c40555053b8f79a442c6b /src/Shop/Types.hs
parent6540c36d87d26c024fa453576aceb1f755f76ded (diff)
generate uuid for charge + return email & date
Diffstat (limited to 'src/Shop/Types.hs')
-rw-r--r--src/Shop/Types.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Shop/Types.hs b/src/Shop/Types.hs
index 81980b5..058317d 100644
--- a/src/Shop/Types.hs
+++ b/src/Shop/Types.hs
@@ -14,10 +14,10 @@ import Servant.API
data ChargeResponse = ChargeResponse
{ chargeid :: Text
- -- ^ TODO: generate id (uuid)?
, chargeamount :: Text
+ , chargeemail :: Text
+ , chargedate :: Text
}
- -- ^ TODO: add email, date
deriving (Show, Read, Generic, Eq)
instance ToJSON ChargeResponse