twitter-conduit-0.6.1: sample/oslist.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Common
import Web.Twitter.Conduit

import Data.Conduit
import qualified Data.Conduit.List as CL
import qualified Data.Map as M
import System.Environment

main :: IO ()
main = do
    [screenName] <- getArgs
    twInfo <- getTWInfoFromEnv
    mgr <- newManager tlsManagerSettings
    let sn = ScreenNameParam screenName

    folids <- runConduit $ sourceWithCursor twInfo mgr (followersIds sn) .| CL.consume
    friids <- runConduit $ sourceWithCursor twInfo mgr (friendsIds sn) .| CL.consume

    let folmap = M.fromList $ map (flip (,) True) folids
        os = filter (\uid -> M.notMember uid folmap) friids
        bo = filter (\usr -> M.member usr folmap) friids

    putStrLn "one sided:"
    print os

    putStrLn "both following:"
    print bo