From da2a0c13aa89705c65fdb9df2f496fb4eea29654 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 4 Jan 2020 19:22:45 +0100
Subject: Allow to remove only unused categories

---
 common/src/Common/Model/CategoryPage.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'common/src/Common/Model/CategoryPage.hs')

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
-- 
cgit v1.2.3