如何在REPL中運行Yesod的DB操作？

Question

在普通的Handler工作流中很容易運行DB操作，因為runDB函數可用於將SqlPersistM操作轉換為Handler操作。

但是沒有這種方法可以使用默認的應用程序設置將SqlPersistM直接轉換為IO 。 查看在應用程序腳手架中定義的Foundation.hs ，有以下實例

instance YesodPersist App where
    type YesodPersistBackend App = SqlBackend
    runDB action = do
        master <- getYesod
        runSqlPool action $ appConnPool master
instance YesodPersistRunner App where
    getDBRunner = defaultGetDBRunner appConnPool

它基本上使用runSqlPool和應用程序的配置，但我沒有看到如何利用它來訪問REPL中的配置表單的簡單方法。

TL; DR： 我正在尋找的只是能夠在我的Yesod應用程序中從cabal repl中執行類似runDB $ selectList [...] [...] ，而無需復制Yesod搭建板的設置盒子外面。

Answer 1

如果您正在使用Yesod腳手架，則提供handler和db函數以分別從repl運行處理程序操作和數據庫查詢：

$ cabal repl

db $ selectList [UserName ==. "foo"] []

編輯：我還使用此信息更新了Yesod在GHCi上的維基頁面 。 它包含更多示例並涵蓋了一些高級用法，例如使用調試器。