Haskell Yesod和writeFile

Question

我试图学习Yesod，并尝试实现一个简单的REST应用程序，每当我收到一个get请求时，我都会将一些东西写到一个文件中。现在，我有以下处理程序函数：

getTestR =
  do
    return $ writeFile "test.txt" "Just something"
    return $ object ["result" .= "Ok"]

我所期待的是文件test.txt将被创建，并且我将获得一个带有{result=Ok}的JSON。但是，我正在获取JSON，但是没有创建该文件。

我想writeFile没有被评估是因为评估的懒惰，但我不知道如何克服这个问题。提前谢谢。

Answer 1

只需使用liftIO

getTestR =
  do
    liftIO $ writeFile "test.txt" "Just something"
    return $ object ["result" .= "Ok"]