common/src/Common/Model/CategoryPage.hs


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

module Common.Model.CategoryPage
  ( CategoryPage(..)
  ) where

import           Data.Aeson            (FromJSON, ToJSON)
import           GHC.Generics          (Generic)

import           Common.Model.Category (Category, CategoryId)

data CategoryPage = CategoryPage
  { _categoryPage_page           :: Int
  , _categoryPage_categories     :: [Category]
  , _categoryPage_usedCategories :: [CategoryId]
  , _categoryPage_totalCount     :: Int
  } deriving (Eq, Show, Generic)

instance FromJSON CategoryPage
instance ToJSON CategoryPage