Skip to content

Instantly share code, notes, and snippets.

@abuiles

abuiles/simpleTimeOut.hs

Created August 5, 2010 05:14
Show Gist options
  • Save abuiles/509273 to your computer and use it in GitHub Desktop.
Save abuiles/509273 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
simpleTimeOut.hs
import Network.HTTP
import System.Timeout
main = do
rsp <- timeout 10000000 $ simpleHTTP $ getRequest "http://10.1.2.3/S"
case rsp of
Just rsp -> print $ show $ rsp
Nothing -> error "Nothing"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment