18 lines
480 B
Haskell
18 lines
480 B
Haskell
{-# 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
|