Wie führe ich Datenbankabfragen in GHCi in Yesod durch Anwendung

Question

Wie zum Beispiel, fügen Sie einen neuen Benutzer in eine Datenbank ein, die Jessod Anwendungsmodelle verwendet? Oder gibt es einen besseren Weg?

Ich habe es mit gerüsteten Anwendungen zu tun. Jetzt habe ich App Instanz erstellt und weiß nicht, wie Sie Anfragen mit ihm ausführen.

: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' 

Was nun?

Answer 1

Wenn Sie nur persistente Abfragen in ghci durchführen möchten, können Sie dies tun, ohne eine Jessod-Anwendung zu erstellen. Leider unterscheidet sich dies je nach dem spezifischen Backend, das Sie verwenden möchten.

Für 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)) 

Für 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 

Answer 2

Das Gerüst bietet (zumindest mit yesod-bin 1.4.5) eine Funktion db in Application.hs, die Sie verwenden können:

$ cabal repl 
... 
*Application> db $ insert $ User "foo@bar.com" Nothing