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