fetchHTML :: String -> IO String
fetchHTML url = do
    manager <- newManager tlsManagerSettings
    req <- parseRequest url
    response <- httpLbs req manager
    L8.unpack $ getResponseBody response