time-wasting-thread-memorial/web/src/Within/DBMemorial/User.hs

{-# LANGUAGE OverloadedStrings #-}
module Within.DBMemorial.User where

import           Control.Applicative
import           Data.Monoid                    ()
import           Data.Text
import           Database.SQLite.Simple.FromRow
import           Text.Blaze.Html5               ((!))
import qualified Text.Blaze.Html5               as H
import qualified Text.Blaze.Html5.Attributes    as A

data User = User
          { id     :: Int
          , oID    :: Text
          , name   :: Text
          , avatar :: Text
          } deriving (Show, Eq)

instance FromRow User where
    fromRow = User <$> field <*> field <*> field <*> field

render :: User -> H.Html
render user = do
    H.div ! A.class_ "card blue-grey darken-1" $ do
      H.div ! A.class_ "card-content white-text" $ do
        H.span ! A.class_ "card-title" $ H.toHtml $ unpack (name user)
        H.img ! A.src (H.toValue $ unpack $ avatar user)