16 lines
404 B
Haskell
16 lines
404 B
Haskell
|
{-# Language NoImplicitPrelude #-}
|
||
|
|
{-# Language DeriveGeneric #-}
|
||
|
|
{-# Language OverloadedStrings #-}
|
||
|
|
module Database.Schema where
|
||
|
|
|
||
|
|
import ClassyPrelude
|
||
|
|
import Database.Selda.Generic
|
||
|
|
|
||
|
|
data User = User { email :: Text
|
||
|
|
, username :: Text
|
||
|
|
, password :: ByteString }
|
||
|
|
deriving (Show, Generic)
|
||
|
|
|
||
|
|
users :: GenTable User
|
||
|
|
users = genTable "users" [ email :- primaryGen ]
|