common/src/Common/Model/CategoryPage.hs


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

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

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

import           Common.Model.Category (Category)

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

instance FromJSON CategoryPage
instance ToJSON CategoryPage