aboutsummaryrefslogtreecommitdiff
path: root/common
diff options
context:
space:
mode:
Diffstat (limited to 'common')
-rw-r--r--common/common.cabal1
-rw-r--r--common/src/Common/Model.hs1
-rw-r--r--common/src/Common/Model/IncomesAndCount.hs16
3 files changed, 18 insertions, 0 deletions
diff --git a/common/common.cabal b/common/common.cabal
index 1a441c5..9f3f65b 100644
--- a/common/common.cabal
+++ b/common/common.cabal
@@ -60,6 +60,7 @@ Library
Common.Model.EditPaymentForm
Common.Model.Frequency
Common.Model.Income
+ Common.Model.IncomesAndCount
Common.Model.Init
Common.Model.InitResult
Common.Model.Payer
diff --git a/common/src/Common/Model.hs b/common/src/Common/Model.hs
index c9f500b..3a5a627 100644
--- a/common/src/Common/Model.hs
+++ b/common/src/Common/Model.hs
@@ -12,6 +12,7 @@ import Common.Model.EditPaymentForm as X
import Common.Model.Email as X
import Common.Model.Frequency as X
import Common.Model.Income as X
+import Common.Model.IncomesAndCount as X
import Common.Model.Init as X
import Common.Model.InitResult as X
import Common.Model.Payer as X
diff --git a/common/src/Common/Model/IncomesAndCount.hs b/common/src/Common/Model/IncomesAndCount.hs
new file mode 100644
index 0000000..4365180
--- /dev/null
+++ b/common/src/Common/Model/IncomesAndCount.hs
@@ -0,0 +1,16 @@
+module Common.Model.IncomesAndCount
+ ( IncomesAndCount(..)
+ ) where
+
+import Data.Aeson (FromJSON, ToJSON)
+import GHC.Generics (Generic)
+
+import Common.Model.Income (Income)
+
+data IncomesAndCount = IncomesAndCount
+ { _incomesAndCount_incomes :: [Income]
+ , _incomesAndCount_count :: Int
+ } deriving (Show, Generic)
+
+instance FromJSON IncomesAndCount
+instance ToJSON IncomesAndCount