twitter-conduit-0.0.2.1: sample/fav.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Control.Monad.IO.Class
import Web.Twitter.Conduit
import System.Environment
import Common
import Control.Lens

main :: IO ()
main = runTwitterFromEnv' $ do
    [statusIdStr] <- liftIO getArgs
    let sId = read statusIdStr
    targetStatus <- call $ showId sId
    liftIO . putStrLn $ "Favorite Tweet: " ++ targetStatus ^. to show
    res <- call $ favoritesCreate sId
    liftIO $ print res