Yesod中如何执行rawSql

How to execute rawSql in Yesod

我是 Yesod 的新手,我在脚手架站点中执行简单的 rawSql 语句时遇到问题。

module Handler.RawSQL where

import Import

getRawSQLR :: Handler Html
getRawSQLR = do
    users <- runDB $ rawSql "SELECT ident, password FROM user" []
    defaultLayout $(widgetFile "rawsql")

我遇到错误: Handler/RawSQL.hs:7:22: 不在范围内:‘rawSql’

我做错了什么以及如何在小村庄模板中显示 "users"?

您可能只需要导入 rawSql 函数:

import Database.Persist.Sql (rawSql)