diff options
| author | Carlos Sosa <gnusosa@gnusosa.net> | 2019-08-01 00:09:54 -0700 |
|---|---|---|
| committer | Carlos Sosa <gnusosa@gnusosa.net> | 2019-08-01 00:09:54 -0700 |
| commit | 4d98dc944c17961b2c1f9bf0a92274700d20ccb4 (patch) | |
| tree | 1c0eb8c1471cc07ce55d833818d8041235b96461 /app/diff-lists-contacts/Main.hs | |
| parent | 5bb95e50042fbd4de376a9d02c3ec6edf2eb1561 (diff) | |
Add logic to erase follower that already exists as a list memberfeat/adding-diffs-lists-contacts
Diffstat (limited to 'app/diff-lists-contacts/Main.hs')
| -rw-r--r-- | app/diff-lists-contacts/Main.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/app/diff-lists-contacts/Main.hs b/app/diff-lists-contacts/Main.hs index 671100c..523de3e 100644 --- a/app/diff-lists-contacts/Main.hs +++ b/app/diff-lists-contacts/Main.hs @@ -32,13 +32,18 @@ main = do mgr <- newManager tlsManagerSettings putStrLn $ "# your home timeline (up to 200 tweets):" listMembers <- runConduit $ - sourceWithMaxId twInfo mgr (listMembers (ListNameParam "user/someList")) + sourceWithCursor twInfo mgr (listsMembers (ListNameParam "user/someList")) .| (CL.isolate 200) .| (mapC (\user -> do user ^. userId)) + .| (mapC UserIdParam) + .| (mapC friendshipsDestroy) + .| (mapC (\req -> do + callWithResponse twInfo mgr req)) .| sinkList - mapM_ (putStrLn . show) listMembers + resp <- sequence listMembers + mapM_ (putStrLn . show) resp |