I made a more compact version closer to what I might write in a hurry. {-# LANGUAGE OverloadedStrings #-} module Main where import Prelude hid

I made a more compact version closer to what I might write in a hurry. {-# LANGUAGE OverloadedStrings #-} module Main where import Prelude hiding (appendFile) import Data.Monoid ((<>)) import Network.Wreq import Control.Lens import Control.Concurrent.Async import Data.ByteString.Lazy (ByteString, appendFile) import Data.List main = do urls <- promptUserURLs responses <- mapConcurrently get urls let (httpInfo, httpsInfo) = partition ((== "http:") . fst) (zip urls responses) mapM_ (appendFile "output1.txt" . view responseBody . snd) httpsInfo mapConcurrently (get . fst) httpInfo >>= mapM_ (appendFile "output2.txt" . view responseBody) promptUserURLs :: IO [String] promptUserURLs = go [] where go :: [String] -> IO [String] go urls = do line <- getLine if line == ("q" :: String) then return urls else go (urls <> [line]) -- lol, this is a very bad way to snoc NOTE: To make this faster I create a custom Library that re-exports these common pieces. So for me I'd erase those 7 lines of imports and trade them for one. It also has something like promptUserURLs already there. So in that case it looks like: {-# LANGUAGE OverloadedStrings #-} module Main where import QuickScriptLibrary main = do urls <- promptUserURLs responses <- mapConcurrently get urls let (httpInfo, httpsInfo) = partition ((== "http:") . fst) (zip urls responses) mapM_ (appendFile "output1.txt" . view responseBody . snd) httpsInfo mapConcurrently (get . fst) httpInfo >>= mapM_ (appendFile "output2.txt" . view responseBody)