2013-04-10 21:29:02 -07:00
|
|
|
import Network.Browser
|
|
|
|
|
import Network.HTTP
|
|
|
|
|
import Network.URI
|
|
|
|
|
|
2018-06-22 20:57:24 +00:00
|
|
|
main = do
|
|
|
|
|
rsp <- Network.Browser.browse $ do
|
|
|
|
|
setAllowRedirects True
|
|
|
|
|
setOutHandler $ const (return ())
|
|
|
|
|
request $ getRequest "http://www.rosettacode.org/"
|
|
|
|
|
putStrLn $ rspBody $ snd rsp
|
