From 359f837511597354bc6462cfc4200f54d647d728 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Thu, 13 Aug 2015 22:55:41 +0200
Subject: Giving the payment id to the client

---
 src/server/Model/Json/Payment.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/server/Model/Json/Payment.hs')

diff --git a/src/server/Model/Json/Payment.hs b/src/server/Model/Json/Payment.hs
index de6beb9..f22c8cf 100644
--- a/src/server/Model/Json/Payment.hs
+++ b/src/server/Model/Json/Payment.hs
@@ -11,7 +11,8 @@ import Data.Text (Text)
 import Data.Aeson
 
 data Payment = Payment
-  { creation :: UTCTime
+  { id :: Text
+  , creation :: UTCTime
   , name :: Text
   , cost :: Int
   , userName :: Text
-- 
cgit v1.2.3