DouKaku?

module Main (main) where

import Data.Maybe
import Network.Browser
import Network.HTTP
import Network.URI
import System.Environment
import System.IO
import System.Timeout
-- import qualified System.IO.UTF8 as U

main :: IO ()
main = do { prog <- getProgName
          ; args <- getArgs
          ; case args of
              [h] -> do { mr <- timeout tolerance $ httpRequest (mkreq h)
                        ; case mr of
                            Nothing -> hPutStrLn stderr $ prog ++ ": timeout"
                            Just (Right resp)
                              -> hPutStrLn stdout $ rspBody resp
                        }
              _   -> usage prog
          }
  where 
    mkreq h = Request uri GET [Header HdrHost h'] ""
      where 
         uri = fromJust $ parseURI h
         h'  = uriRegName $ fromJust $ uriAuthority uri
         
tolerance :: Int
tolerance = 10^6 -- micro sec
                            
usage :: String -> IO ()
usage prog = hPutStrLn stderr $ "usage: "++prog++" <uri>"

httpRequest :: Request -> IO (Result Response)
httpRequest req
 = do { proxy <- catch
                   (getEnv "HTTP_PROXY" >>= return . (flip Proxy Nothing))
                   (\_ -> return NoProxy)
      ; (_, resp) <- browse (setProxy proxy >> request req)
      ; return (Right resp)
      }