diff options
| author | Joris | 2019-11-17 18:08:28 +0100 |
|---|---|---|
| committer | Joris | 2019-11-17 18:08:28 +0100 |
| commit | c0ea63f8c1a8c7123b78798cec99726b113fb1f3 (patch) | |
| tree | 0b92f7e0c125c067a5f1ccafe6a1f04f1edfae86 /common/src/Common/Model/PaymentPage.hs | |
| parent | 4dc84dbda7ba3ea60d13e6f81eeec556974b7c72 (diff) | |
| download | budget-c0ea63f8c1a8c7123b78798cec99726b113fb1f3.tar.gz budget-c0ea63f8c1a8c7123b78798cec99726b113fb1f3.tar.bz2 budget-c0ea63f8c1a8c7123b78798cec99726b113fb1f3.zip | |
Optimize and refactor payments
Diffstat (limited to 'common/src/Common/Model/PaymentPage.hs')
| -rw-r--r-- | common/src/Common/Model/PaymentPage.hs | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/common/src/Common/Model/PaymentPage.hs b/common/src/Common/Model/PaymentPage.hs index 76c7511..3b18bb6 100644 --- a/common/src/Common/Model/PaymentPage.hs +++ b/common/src/Common/Model/PaymentPage.hs @@ -2,18 +2,17 @@ module Common.Model.PaymentPage ( PaymentPage(..) ) where -import Data.Aeson (FromJSON, ToJSON) -import GHC.Generics (Generic) +import Data.Aeson (FromJSON, ToJSON) +import GHC.Generics (Generic) -import Common.Model.Payment (Payment) -import Common.Model.PaymentCategory (PaymentCategory) -import Common.Model.PaymentHeader (PaymentHeader) +import Common.Model.Payment (Payment) +import Common.Model.PaymentHeader (PaymentHeader) data PaymentPage = PaymentPage - { _paymentPage_header :: PaymentHeader - , _paymentPage_payments :: [Payment] - , _paymentPage_paymentCategories :: [PaymentCategory] - , _paymentPage_totalCount :: Int + { _paymentPage_page :: Int + , _paymentPage_header :: PaymentHeader + , _paymentPage_payments :: [Payment] + , _paymentPage_totalCount :: Int } deriving (Show, Generic) instance FromJSON PaymentPage |