module Main where

import System.CPUTime
import Text.Printf
import Network.Wreq
import Control.Lens
import qualified Data.ByteString.Lazy.Char8 as B
import Control.Concurrent.Async.Pool
import Network.HTTP.Client

main :: IO [()]
main = do
            manager <- newManager defaultManagerSettings { managerConnCount = 100, managerResponseTimeout = responseTimeoutMicro $ 1000 * 1000 * 1000 }
            withTaskGroup 100 (\tg -> mapConcurrently tg (process manager) [1..10000])

process :: Manager -> Int -> IO ()
process manager i = do
             request <- parseRequest ("http://167.172.41.106?i=" ++ (show i))
             response <- httpLbs request manager
             putStrLn (B.unpack (response ^. Network.Wreq.responseBody))