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

Конечная точка комментариев имеет параметр запроса before. Запрос с этим параметром запроса, установленным на name любого комментария, вернет только комментарии, более новые, чем этот комментарий.

Обратите внимание, что name комментария - это не link_id, на котором я застрял.

Например, запрос к www.reddit.com / r / foobar / comments.json? Sort = new & before = t1_e9eud8s вернет список комментариев, которые были размещены после комментарий с name: t1_e9eud8s