11 lines
277 B
Haskell
11 lines
277 B
Haskell
|
import Network.Browser
|
||
|
|
import Network.HTTP
|
||
|
|
import Network.URI
|
||
|
|
|
||
|
|
main = do
|
||
|
|
rsp <- Network.Browser.browse $ do
|
||
|
|
setAllowRedirects True
|
||
|
|
setOutHandler $ const (return ())
|
||
|
|
request $ getRequest "http://www.rosettacode.org/"
|
||
|
|
putStrLn $ rspBody $ snd rsp
|