diff options
| author | Joris | 2019-11-06 19:44:15 +0100 |
|---|---|---|
| committer | Joris | 2019-11-06 19:44:15 +0100 |
| commit | f4f24158a46d8c0975f1b8813bbdbbeebad8c108 (patch) | |
| tree | d0aeaa3a920caaff7408a1f6cd12b45f21cb2620 /common | |
| parent | 58f6c4e25f5f20f1b608242c83786e2f13947804 (diff) | |
Show the payment table with server side paging
Diffstat (limited to 'common')
| -rw-r--r-- | common/common.cabal | 1 | ||||
| -rw-r--r-- | common/src/Common/Model.hs | 1 | ||||
| -rw-r--r-- | common/src/Common/Model/PaymentPage.hs | 18 |
3 files changed, 20 insertions, 0 deletions
diff --git a/common/common.cabal b/common/common.cabal index 651673f..4a6d728 100644 --- a/common/common.cabal +++ b/common/common.cabal @@ -67,3 +67,4 @@ Library Common.Model.InitResult Common.Model.Payer Common.Model.PaymentCategory + Common.Model.PaymentPage diff --git a/common/src/Common/Model.hs b/common/src/Common/Model.hs index 313f26b..bc626d5 100644 --- a/common/src/Common/Model.hs +++ b/common/src/Common/Model.hs @@ -19,6 +19,7 @@ import Common.Model.InitResult as X import Common.Model.Payer as X import Common.Model.Payment as X import Common.Model.PaymentCategory as X +import Common.Model.PaymentPage as X import Common.Model.SavedPayment as X import Common.Model.SignInForm as X import Common.Model.User as X diff --git a/common/src/Common/Model/PaymentPage.hs b/common/src/Common/Model/PaymentPage.hs new file mode 100644 index 0000000..31039c7 --- /dev/null +++ b/common/src/Common/Model/PaymentPage.hs @@ -0,0 +1,18 @@ +module Common.Model.PaymentPage + ( PaymentPage(..) + ) where + +import Data.Aeson (FromJSON, ToJSON) +import GHC.Generics (Generic) + +import Common.Model.Payment (Payment) +import Common.Model.PaymentCategory (PaymentCategory) + +data PaymentPage = PaymentPage + { _paymentPage_payments :: [Payment] + , _paymentPage_paymentCategories :: [PaymentCategory] + , _paymentPage_totalCount :: Int + } deriving (Show, Generic) + +instance FromJSON PaymentPage +instance ToJSON PaymentPage |