diff options
| author | Joris | 2018-01-28 12:13:09 +0100 |
|---|---|---|
| committer | Joris | 2018-06-11 12:28:29 +0200 |
| commit | 33b85b7f12798f5762d940ed5c30f775cdd7b751 (patch) | |
| tree | daf8cfb7b0a16b2fce65848fc0ca2831f33a0701 /server/src/Model/IncomeResource.hs | |
| parent | ab17b6339d16970c3845ec4f153bfeed89eae728 (diff) | |
| download | budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.tar.gz budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.tar.bz2 budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.zip | |
WIP
Diffstat (limited to 'server/src/Model/IncomeResource.hs')
| -rw-r--r-- | server/src/Model/IncomeResource.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/server/src/Model/IncomeResource.hs b/server/src/Model/IncomeResource.hs new file mode 100644 index 0000000..6ab5f18 --- /dev/null +++ b/server/src/Model/IncomeResource.hs @@ -0,0 +1,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 |