如何在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'
下一步是什么?
App
)并以某种方式执行查询。 - s9gf4ultAppConfig
实例时遇到了困难,以便使用Foundation
模块中定义的makeFoundation
创建App
(这是默认的脚手架)。 - s9gf4ult