Extract tweets

Main.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import qualified Data.Conduit.List as CL
import qualified Data.Text as T
import qualified Data.Text.IO as T
import Data.Conduit (($$))
import Control.Lens ((^.))
import Control.Monad.IO.Class (liftIO)
import Web.Twitter.Conduit(sourceWithMaxId,
                           userTimeline,
                           statusText,
                           statusCreatedAt,
                           UserParam(ScreenNameParam),
                          )
import Common (runTwitterFromEnv')

main :: IO ()
main = runTwitterFromEnv' $
  sourceWithMaxId (userTimeline (ScreenNameParam "jjeeb"))
  $$ CL.mapM_ (liftIO . T.putStrLn . showStatus)
  where
    showStatus status = T.concat [ T.pack $ status ^. statusCreatedAt
                                 , ": "
                                 , status ^. statusText
                                 ]