Check HTTP status codes

check-status.hs

#!/usr/bin/env stack
-- stack --resolver lts-15.10 script
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}
import RIO
import Network.HTTP.Simple
import qualified RIO.Text as T

main :: IO ()
main = runSimpleApp $ do
  text <- readFileUtf8 "foo.txt"
  let urls = T.lines text
  logInfo "Status Code,URL"
  for_ urls $ \url -> do
    req <- parseRequest $ T.unpack url
    res <- httpNoBody req
    logInfo $ display (getResponseStatusCode res) <> "," <> display url