Skip to content

Instantly share code, notes, and snippets.

@abuiles

abuiles/simpleTimeOut.hs

Created July 19, 2010 02:32
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save abuiles/480946 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save abuiles/480946 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment