如何使用 withMySQLConn 使用 persistent-mysql 进行查询？

Question

我正在使用persistent-mysql 并试图找到一种方法来执行来自SqlPersistM () monad 的简单命令。但是我遇到了类型错误。

首先是withMySQLConn defaultConnectInfo，有以下类型

(MonadLogger m, MonadBaseControl IO m, MonadIO m) =>
 (Connection -> m a) -> m a

这里的问题是，如果我尝试在 IO monad 中运行它，我会收到一条错误消息，指出 IO 没有 MonadLogger 实例。

λ> :t withMySQLConn defaultConnectInfo $
        \c -> runSqlPersistM (runMigration migrateAll) c

<interactive>:1:1-13:
    No instance for (MonadLogger IO)
      arising from a use of ‘withMySQLConn’
    In the expression: withMySQLConn defaultConnectInfo
    In the expression:
      withMySQLConn defaultConnectInfo
      $ \ c -> runSqlPersistM (runMigration migrateAll) c

an older version of monad-logger 中似乎有一个，但not anymore。我不确定我是否使用错了，或者是否存在潜在问题。我只有一个带有持久 2.1.1.4 设置的小型 cabal 项目，并尝试从 cabal repl 运行迁移。

如果有任何相关性，这是我的整个数据库设置代码

{-# LANGUAGE EmptyDataDecls             #-}
{-# LANGUAGE FlexibleContexts           #-}
{-# LANGUAGE GADTs                      #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses      #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE QuasiQuotes                #-}
{-# LANGUAGE TemplateHaskell            #-}
{-# LANGUAGE TypeFamilies               #-}
module Model where

import Control.Monad.Trans.Control
import Control.Monad.IO.Class
import Control.Monad.Trans.Resource (runResourceT, ResourceT)
import Control.Monad.Logger

import Data.Text (Text)
import Data.Time (UTCTime)
import Database.Persist
import Database.Persist.TH
import Database.Persist.MySQL
import Database.Persist.Sqlite

share [mkPersist sqlSettings, mkMigrate "migrateAll"]
    [persistLowerCase|
     Receipt
         name Text
         createdAt UTCTime
            |]

我已经尝试使用persistent-sqlite，一切似乎都运行良好（基于本书教程），但我似乎无法在 MySQL 中运行。

我正在寻找的是一个简单的 sn-p，它展示了如何使用 persistent-mysql 执行 SqlPersistM a 查询（或等效查询）。

这个问题是后续from a GitHub issue discussion。

Answer 1

你快到了。您只需要使用monad-logger 中的一个函数来提供MonadLogger 上下文。你可以试试runStdoutLoggingT。