server/src/Model/IncomeResource.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module Model.IncomeResource
  ( IncomeResource(..)
  ) where

import           Common.Model (Income (..))

import           Resource     (Resource, resourceCreatedAt, resourceDeletedAt,
                               resourceEditedAt)

newtype IncomeResource = IncomeResource Income

instance Resource IncomeResource where
  resourceCreatedAt (IncomeResource i) = _income_createdAt i
  resourceEditedAt (IncomeResource i) = _income_editedAt i
  resourceDeletedAt (IncomeResource i) = _income_deletedAt i