Reddit API随时收到评论

时间:2018-11-10 23:12:34

标签: haskell reddit

我有一个接受Reddit注释并发出回复的功能。我希望此功能映射到Reddit上发布的每个新评论。

我应该如何从reddit获得评论?只经常提取100条最近的评论似乎有些浪费,因此不要错过任何评论。一种使所有评论都比特定评论更新的方法非常好。

理想情况下,评论只是一个懒惰列表,所以我可以这样做

looping := false
pass = 0
max = 2

^r::
   pass++
   looping := !true
   while (looping & pass < max)
   {
      Send, stack overflow, save me!
   }
   pass = 0
return

或者我可以编写一个交互函数:

f :: Comment -> IO ()

getComments :: IO [Comment]

main :: IO ()
main = do
  comments <- getComments
  traverse_ f comments

1 个答案:

答案 0 :(得分:2)

comments endpoint具有查询参数before。将查询参数设置为任何评论的name的请求将仅返回 比该评论新的评论。

请注意,评论的name不是它的link_id,这就是我所坚持的。

例如,对www.reddit.com/r/foobar/comments.json?sort=new&before=t1_e9eud8s的请求将返回使用name: t1_e9eud8s

在评论后 发布的评论的列表。