Question

urldata2 :: String
urldata2 = "https://api.twitter.com/1.1/statuses/user_timeline.json?screen_name="

allTweets :: [String] -> IO (Either String [Tweets])
allTweets listusers = do
    getWith authenticate (urldata2++(DL.head listusers) ) >>= \body1 -> getBody1 body1

这是我尝试的allTweets功能

getBody1接受我的回复和IO (Either String [Tweets])

我想获取列表中所有用户的推文，但我只为头部用户管理。我怎样才能获得列表中的所有用户？

Answer 1

allTweets1 listusers =
    mapM (\listu -> (getWith authenticate (urldata2++(listu) ) >>= \body1 -> getBody1 body1)  ) listusers

我能够像托马斯建议的那样使用mapM来解决我的问题。我正面临地图原因(DL.map) :: (a -> b) -> [a] -> [b]的问题它希望它在同一个容器中。但是对于mapM :: (Monad m, Traversable t) => (a -> m b) -> t a -> m (t b)，我们可以在格式

之类的任何容器中发布它

获取粉丝的所有推文

1 个答案: