{-# LANGUAGE OverloadedStrings, DeriveDataTypeable #-}
module ViewModels.ThreadThumbnailViewModel  where
import Data.Text
import Data.Data

import qualified ViewModels.ImageViewModel as IVM

data ThreadThumbnailViewModel = ThreadThumbnailViewModel {
  threadId :: Text,
  threadURL :: Text,
  thumbnail :: IVM.ImageViewModel
  } deriving (Data, Typeable)
