HaskellでHTTP接続

import Network.HTTP (simpleHTTP, getRequest, getResponseBody, Request)

resStr::Request String
resStr =  getRequest "http://www.google.co.jp"

main::IO()
main = do 
            header <- simpleHTTP resStr
            body <- getResponseBody header
            print header 
            print body