From baefda5a902a94cedf84cfcd2ae550267e5d932e Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 30 Mar 2016 00:28:55 +0200
Subject: Merge punctual and monthly payments in client model

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

(limited to 'src/server/Model/Json')

diff --git a/src/server/Model/Json/Payment.hs b/src/server/Model/Json/Payment.hs
index 8923c13..7f4de15 100644
--- a/src/server/Model/Json/Payment.hs
+++ b/src/server/Model/Json/Payment.hs
@@ -11,6 +11,7 @@ import Data.Text (Text)
 import Data.Aeson
 
 import Model.Database (PaymentId, UserId)
+import Model.Frequency
 
 data Payment = Payment
   { id :: PaymentId
@@ -18,6 +19,7 @@ data Payment = Payment
   , name :: Text
   , cost :: Int
   , userId :: UserId
+  , frequency :: Frequency
   } deriving (Show, Generic)
 
 instance FromJSON Payment
-- 
cgit v1.2.3