import qualified Data.ByteString.Lazy.Char8 as L8
import Network.HTTP.Client
import Network.HTTP.Client.TLS
import Network.HTTP.Simple (getResponseBody)
import Text.Printf

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