小编asp*_*asp的帖子

我正在使用HDBC从数据库中检索数据,然后尝试使用Happstack将此数据发送到Web客户端.

myFunc :: Integer -> IO String
myFunc = ... fetch from db here ...

handlers :: ServerPart Response
handlers =
    do decodeBody (defaultBodyPolicy "/tmp/" 0 1000 1000)
       msum [ 
                dir "getData" $ ok $ toResponse $ myFunc $ toInteger 1
            ]

mainFunc = simpleHTTP nullConf handlers

当我构建上面的代码时,我收到此错误:

使用"toResponse"时没有(ToMessage(IO String))的实例

我尝试了什么？

1. 我试图将其转换IO String为String(liftIO例如使用).
2. 我试图在这里找到任何类似的问题.
3. 我试图在Happstack Crash Course中找到一个类似的例子.
4. 我用各种不同的组合搜索了所有相关的关键字.

提前致谢.