Yesod Book :: Persistent :: Attributes

persistentAttributes.hs

{-# LANGUAGE QuasiQuotes, TypeFamilies, GeneralizedNewtypeDeriving, TemplateHaskell,
             OverloadedStrings, GADTs, FlexibleContexts #-}
import Data.Conduit (runResourceT)
import Database.Persist
import Database.Persist.Sqlite
import Database.Persist.TH
import Control.Monad.Logger (runStderrLoggingT)
import Data.Time

share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistUpperCase|
Person
    name String
    age Int Maybe
    created UTCTime default=CURRENT_TIMESTAMP
    language String default='Haskell'
    country String "default='El Salvador'"
    deriving Show
|]

main = runStderrLoggingT $ runResourceT $ withSqliteConn ":memory:" $ runSqlConn $ do
    runMigration migrateAll