我正在尝试使用以下 Elm 代码从客户端到服务器进行基本的 JSON 通信:
import open Http
result res = case res of
Success a -> a
Waiting -> "Waiting"
Failure n a-> "Failure " ++ (show n) ++ " " ++ (show a)
main = lift asText <| lift (show . result) <| send <| constant <| post "http://localhost:3000" "{foo : true}"
服务器与 Yesod 书的这一部分完全一样。
但是,当我运行请求时,我得到了输出
"\"Failure 0 []\""
有人知道我必须做什么才能让 Elm 客户端与 Yesod 服务器正确通信吗?我试过一个 Python 客户端,请求工作得很好。同样,Yesod 站点上有几个成功的 Http 请求的示例,所以我相信这两个库都可以正常工作,但我使用它们是错误的。
更新:问题出在客户端。我能够在禁用安全选项的情况下使用 chrome,并且对 Yesod 没有任何更改。我会寻找一种解决方法,但这至少足以让我的开发继续进行。