Skip to content

Instantly share code, notes, and snippets.

@snoyberg
Created May 27, 2020 06:13
Show Gist options
  • Save snoyberg/61d93087936ba473623dead239c29ba1 to your computer and use it in GitHub Desktop.
Save snoyberg/61d93087936ba473623dead239c29ba1 to your computer and use it in GitHub Desktop.
Check HTTP status codes
#!/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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment