diff options
| author | Joris | 2020-01-04 19:22:45 +0100 |
|---|---|---|
| committer | Joris | 2020-01-04 19:22:45 +0100 |
| commit | da2a0c13aa89705c65fdb9df2f496fb4eea29654 (patch) | |
| tree | 760e267f0215349af1d5e7c10c84a04bcb5bc75c /common/src/Common/Model/CategoryPage.hs | |
| parent | 1dfb85d3fd56d163fc854a8b3cf659d0ac39f639 (diff) | |
| download | budget-da2a0c13aa89705c65fdb9df2f496fb4eea29654.tar.gz budget-da2a0c13aa89705c65fdb9df2f496fb4eea29654.tar.bz2 budget-da2a0c13aa89705c65fdb9df2f496fb4eea29654.zip | |
Allow to remove only unused categories
Diffstat (limited to 'common/src/Common/Model/CategoryPage.hs')
| -rw-r--r-- | common/src/Common/Model/CategoryPage.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/common/src/Common/Model/CategoryPage.hs b/common/src/Common/Model/CategoryPage.hs index 476b4ce..e20f49f 100644 --- a/common/src/Common/Model/CategoryPage.hs +++ b/common/src/Common/Model/CategoryPage.hs @@ -5,12 +5,13 @@ module Common.Model.CategoryPage import Data.Aeson (FromJSON, ToJSON) import GHC.Generics (Generic) -import Common.Model.Category (Category) +import Common.Model.Category (Category, CategoryId) data CategoryPage = CategoryPage - { _categoryPage_page :: Int - , _categoryPage_categories :: [Category] - , _categoryPage_totalCount :: Int + { _categoryPage_page :: Int + , _categoryPage_categories :: [Category] + , _categoryPage_usedCategories :: [CategoryId] + , _categoryPage_totalCount :: Int } deriving (Eq, Show, Generic) instance FromJSON CategoryPage |