diff options
| -rw-r--r-- | app/diff-lists-contacts/Main.hs | 9 | ||||
| -rw-r--r-- | package.yaml | 13 |
2 files changed, 18 insertions, 4 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 diff --git a/package.yaml b/package.yaml index 9c3e120..8bab728 100644 --- a/package.yaml +++ b/package.yaml @@ -33,9 +33,18 @@ library: source-dirs: src executables: - twitter-tools-exe: + diff-lists-contacts: main: Main.hs - source-dirs: app + source-dirs: app/diff-lists-contacts + ghc-options: + - -threaded + - -rtsopts + - -with-rtsopts=-N + dependencies: + - twitter-tools + timeline-delete: + main: Main.hs + source-dirs: app/timeline-delete ghc-options: - -threaded - -rtsopts |