gistfile1.hs

module Main where

import Network.HTTP.Enumerator
import Network.HTTP.Types
import qualified Data.ByteString.Lazy.UTF8 as BSLU

page = "http://www.invest-in-thuringia.de/service/firmendatenbank/?searchScope=firmen-detail&adrid=2660"

main = do
  req0 <- parseUrl page
  let req = req0 { method = methodGet }
  res <- withManager $ httpLbs req
  putStrLn $ BSLU.toString $ responseBody res