abuiles · July 19, 2010 02:32
diff --git a/simpleTimeOut.hs b/simpleTimeOut.hs
 import Network.HTTP
 import System.Timeout

 main = do
  rsp <- timeout 1000000  $ simpleHTTP $ getRequest "http://10.1.2.3/S"
  case rsp of
    Just rsp -> return rsp
    Nothing  -> error "Nothing"
	import Network.HTTP
	import System.Timeout

	main = do
	rsp <- timeout 1000000 $ simpleHTTP $ getRequest "http://10.1.2.3/S"
	case rsp of
	Just rsp -> return rsp
	Nothing -> error "Nothing"