Question

我想从Persist Entity获取属性值;所以我有以下代码

userToText userId = do
    user <- runDB $ get404 userId
    userName user

此代码无法编译，因此我编写了那些替代版本

userToText userId = do
    user <- runDB $ get404 userId
    listToJSON [user]


userToText userId = do
    (_,_,_,_,_,name,_,_) <- runDB $ get404 userId
    show name

全部生成相同的错误

Handler/Report.hs:105:9:
Couldn't match expected type ‘HandlerT site IO b’
            with actual type ‘Text’
Relevant bindings include
  userToText :: Key PersistValue -> HandlerT site IO b
    (bound at Handler/Report.hs:102:1)
In a stmt of a 'do' block: listToJSON [user]
In the expression:
  do { user <- runDB $ get404 userId;
       listToJSON [user] }

感谢您的帮助

Answer 1

您的代码位于Handler monad中，因此您的函数需要返回Handler Text类型的内容，而不仅仅是Text：

userToText :: UserId -> Handler Text
userToText userId = do
    user <- runDB $ get404 userId
    return $ userName user -- Note the `return` here

（这类似于getLine等函数的类型IO String而不是String）。

在Yesod中将PersistValue转换为Text

1 个答案: