haskell - 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 endpoint有一个查询参数 before。将此查询参数设置为任何评论的 name 的请求将仅返回比该评论更新的评论。

请注意，评论的 name 不是它的 link_id，这是我一直坚持的。

例如，对 www.reddit.com/r/foobar/comments.json?sort=new&before=t1_e9eud8s 的请求将返回在带有 name: t1_e9eud8s

的评论 之后发布的评论列表