Main.hs

module Main where
import qualified Data.ByteString.Lazy.UTF8 as L
import Data.Char
import Network.HTTP.Enumerator (simpleHttp)
import System.Environment

dupa :: String -> String
dupa []     = undefined
dupa (a:[]) = undefined

main :: IO ()
main = do
  (url:_) <- getArgs
  page    <- simpleHttp url
  putStr (L.toString page)