23 lines
602 B
Plaintext
23 lines
602 B
Plaintext
{-# LANGUAGE QuasiQuotes, TypeFamilies, GeneralizedNewtypeDeriving, TemplateHaskell #-}
|
|
module Model where
|
|
|
|
import Yesod
|
|
import Database.Persist.TH (share, mkMigrate)
|
|
import Data.Text (Text)
|
|
|
|
-- You can define all of your database entities here. You can find more
|
|
-- information on persistent and how to declare entities at:
|
|
-- http://www.yesodweb.com/book/persistent/
|
|
share [mkPersist, mkMigrate "migrateAll"] [~qq~persist|
|
|
User
|
|
ident Text
|
|
password Text Maybe Update
|
|
UniqueUser ident
|
|
Email
|
|
email Text
|
|
user UserId Maybe Update
|
|
verkey Text Maybe Update
|
|
UniqueEmail email
|
|
|]
|
|
|