1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Common
import Web.Twitter.Conduit
import Web.Twitter.Types.Lens
import Control.Lens
import Data.Conduit
import qualified Data.Conduit.List as CL
import qualified Data.Text as T
import System.Environment
main :: IO ()
main = do
[num, keyword] <- getArgs
twInfo <- getTWInfoFromEnv
mgr <- newManager tlsManagerSettings
res <- sourceWithSearchResult twInfo mgr $ searchTweets $ T.pack keyword
let metadata = res ^. searchResultSearchMetadata
putStrLn $ "search completed in: " ++ metadata ^. searchMetadataCompletedIn . to show
putStrLn $ "search result max id: " ++ metadata ^. searchMetadataMaxId . to show
runConduit $ res ^. searchResultStatuses .| CL.isolate (read num) .| CL.mapM_ print
|
