MonadUnliftIO?
Вот в таком коде:
doPostgresPersist :: Postgres m => PSQL.SqlPersistT m a -> m a
doPostgresPersist p = do
conn <- askConn
logFunc <- askLoggerIO
pconn <- liftIO $ PPG.openSimpleConn logFunc conn
PSQL.runSqlConn p pconn
теоретически нет, это же противоположные вещи. а зачем?
В R подключение, в W -- логи (насколько я понял), S -- что-то ещё, пока не смотрел
при использовании Persistent подключение и логи уже учтены. это не ваш код?
Обсуждают сегодня