doRequest :: (Manager, Int) -> IO ()
doRequest (manager, reqNum) = do
    req <- request reqNum
    catch (withResponse req manager $ doResponse reqNum)
          (\err -> writeFile (errFilePath reqNum) $ show (err::HttpException) ++ "\n")
doRequest :: (Manager, Int) -> IO ()
doRequest (manager, reqNum) = do
    req <- request reqNum
    catch (withResponse req manager $ doResponse reqNum)
          (\err -> writeFile (errFilePath reqNum) $ show (err::HttpException) ++ "\n")
doRequest (manager, reqNum) = do
    req <- request reqNum
    catch (withResponse req manager $ doResponse reqNum)
          (\err -> writeFile (errFilePath reqNum) $ show (err::HttpException) ++ "\n")