4

首先，我以前从未真正使用过 API，也从未使用过 Haskell 中的 HTTP 库。我不确定我在这里做错了什么，所以也许知道的人可以提供帮助。

我正在使用我可以阅读的内容：http://github.com/defunkt/gist/blob/master/gist.rb，即 write 方法，来写这个：

req = postRequest "http://gist.github.com/gists/new"

testPost = simpleHTTP $ req {rqBody = urlEncodeVars 
                                      [("login", "Raynes"),
                                       ("token","<removed>"),
                                       ("file_ext[gistfile1]",".hs"),
                                       ("file_name[gistfile1]","testfile"),
                                       ("file_contents[gistfile1]","main = putStrLn \"Hello, world!\"")]}

运行时，testPost 给出以下输出：

Right HTTP/1.1 302 Found 
Server: nginx/0.7.61
Date: Sun, 29 Nov 2009 17:13:51 GMT
Content-Type: text/html; charset=utf-8
Connection: close
Status: 302 Found
Location: http://gist.github.com/gists/new
X-Runtime: 1ms
Content-Length: 98
Set-Cookie: _github_ses=BAh7BiIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--884981fc5aa85daf318eeff084d98e2cff92578f; path=/; expires=Wed, 01 Jan 2020 08:00:00 GMT; HttpOnly
Cache-Control: no-cache

据我所知，Location 应该是指向新 Gist 的链接。然而，没有新的 Gist 被提出。我不确定我做错了什么。Gist API 基本上没有文档，我唯一可以假设的是我没有正确翻译 Ruby。就像我说的，我以前从未真正使用过 HTTP 库。

任何帮助表示赞赏。

4

2 回答 2

1

在阅读了使用 Network.Browser.browse 的示例后，我自己弄清楚了。

req = "http://gist.github.com/gists"

testPost = do
  (uri, rsp) <- Network.Browser.browse $ do
                  setAllowRedirects True
                  request $ formToRequest $
                          Form POST (fromJust $ parseURI req)
                                   [("file_ext[gistfile1]",".hs"),
                                    ("file_contents[gistfile1]","main = putStrLn \"Hello, world!\""),
                                    ("login","Raynes"),
                                    ("token","removed")]
  return uri
于 2009-11-29T21:59:20.367 回答
0

您的 POST url 错误，根据来源应该是http://gist.github.com/gists 来源

于 2009-11-29T21:03:32.350 回答