Reddit API得到评论，因为他们来

Question

我有一个函数，它接收Reddit评论并抛出回复。我希望这个功能能映射到Reddit上发布的每一条新评论。

我应该如何从reddit获得评论？经常把最近的100条评论拉进来，这样就不会错过任何一条，这似乎有点浪费。一种让所有评论都比特定评论更新的方法非常好。

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

f :: Comment -> IO ()
getComments :: IO [Comment]
main :: IO ()
main = do
comments <- getComments
traverse_ f comments

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

f :: Comment -> Comment
interact :: (Comment -> Comment) -> IO ()
main :: IO ()
main = interact f

Answer 1

comments端点有一个查询参数before。将此查询参数设置为任何注释的name的请求将只返回比该注释新的注释。

请注意，注释的name不是它的link_id，这正是我所坚持的

例如，请求访问www.reddit.com/r/foobar/comments.json？sort=new&before=t1_e9eud8s将返回在带有name: t1_e9eud8s的评论之后发布的评论列表