twitter-conduit-0.6.0: sample/fav.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Common
import Web.Twitter.Conduit

import Control.Lens
import System.Environment

main :: IO ()
main = do
    [statusIdStr] <- getArgs
    twInfo <- getTWInfoFromEnv
    mgr <- newManager tlsManagerSettings
    let sId = read statusIdStr

    targetStatus <- call twInfo mgr $ statusesShowId sId
    putStrLn $ "Favorite Tweet: " ++ targetStatus ^. to show
    res <- call twInfo mgr $ favoritesCreate sId
    print res