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

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

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