Concurrent HTTP Get using Haskell

concurrent-get.hs

#!/usr/bin/env stack
-- stack --resolver lts-9.12 script --package http-conduit,stm,bytestring
{-# LANGUAGE OverloadedStrings #-}
module Main where

import qualified Data.ByteString.Lazy.Char8 as L8
import           Control.Concurrent
import           Control.Monad
import           Control.Concurrent.STM
import           Network.HTTP.Simple

main :: IO ()
main = do
  queue <- (atomically $ newTBQueue 1000) :: IO (TBQueue ())

  forkIO . forever $ do
    atomically $ writeTBQueue queue ()
    forkIO $ do
      response <- httpLBS "http://httpbin.org/get"
      L8.putStrLn $ getResponseBody response
      threadDelay 1000000
      atomically $ readTBQueue queue

  getLine
  return ()