Eh, I had a mistake.

    {-# 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)
    
    main = do
      urls <- promptUserURLs
      responses <- mapConcurrently get urls
      let responseBodys = fmap (view responseBody) responses
          responseInfos  = fmap (\(url,body) -> (take 5 url, body)) (zip urls responseBodys)
          httpUrls = fmap fst (filter (\(url,_) -> url == "http:") responseInfos)
          httpsResponses = fmap snd (filter (\(url,_) -> url == "https") responseInfos)
      mapM_ (appendFile "output1.txt") httpsResponses
      exampleSiteResponses <- mapConcurrently get httpUrls
      let exampleSiteResponses' = fmap (view responseBody) (exampleSiteResponses)
      mapM_ (appendFile "output2.txt") exampleSiteResponses'
    
    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