{-# LANGUAGE OverloadedStrings, DeriveDataTypeable #-}

module ViewModels.HomeViewModel where
import Data.Text
import Data.Data

import qualified ViewModels.ShortUserViewModel as SUVM
import qualified ViewModels.YearMenuItemViewModel as YMIVM
import qualified ViewModels.LinkedTileViewModel as LTVM

data HomeViewModel = HomeViewModel {
  message :: Maybe Text,                                  
  menuItems :: [YMIVM.YearMenuItemViewModel],
  shortUserViewModel ::  SUVM.ShortUserViewModel,
  quickLinks :: [LTVM.LinkedTileViewModel],
  tileMenuItems :: [LTVM.LinkedTileViewModel]
  } deriving (Data, Typeable)
