例如,如何使用Yesod应用程序的模型将新用户插入数据库？或者,还有更好的方法？
我正在处理脚手架应用程序.现在我创建了App实例,并且不知道如何使用它来执行请求.
:i Extra
data Extra
= Extra {extraCopyright :: Data.Text.Internal.Text,extraAnalytics :: Maybe Data.Text.Internal.Text}
-- Defined in `Settings
let e = Extra "asdf" Nothing
let c = AppConfig {appEnv = Development,appPort = 3000,appRoot = "/",appHost = "localhost",appExtra = e}
f <- makeFoundation c
:t f
f :: App
:i App
data App
= App {settings :: AppConfig DefaultEnv Extra,getStatic :: Yesod.Static.Static,connPool :: persistent-1.2.3.0:Database.Persist.Class.PersistConfig.PersistConfigPool
PersistConf,httpManager :: http-client-0.2.0.1:Network.HTTP.Client.Types.Manager,persistConfig :: PersistConf,appLogger :: Yesod.Core.Types.Logger}
-- Defined in `Foundation'
接下来是什么？
解决方法
如果您只想在ghci中执行持久性查询,则可以在不创建Yesod应用程序的情况下执行此操作.不幸的是,这取决于你想要使用的特定后端,这有很大的不同.
对于sqlite：
> import Database.Persist.sqlite > import Model > pool <- createsqlitePool "yesod-test.sqlite3" 2 > runsqlite "yesod-test.sqlite3" (runMigration migrateAll) > userId <- runsqlite "yesod-test.sqlite3" (insert (User "foo@bar.com" Nothing))
对于Postgresql：
-- In Shell: $createdb yesod-test > import Database.Postgresql.Simple > con <- connectPostgresql "dbname=yesod-test" > import Database.Persist.Postgresql > pcon <- openSimpleConn con > import Model > runsqlPersistM (runMigration migrateAll) pcon > userId <- runsqlPersistM (insert (User "foo@bar.com" Nothing)) pcon > Just user <- runsqlPersistM (get userId) pcon > userIdent user
