Commit 0ad9f38b authored by Bas Lijnse's avatar Bas Lijnse

Added a small example which uses the IP module to look up the IP address of www.cs.ru.nl


git-svn-id: https://svn.cs.ru.nl/repos/clean-platform/trunk@27 2afc29ad-3112-4e41-907a-9359c7e6e986
parent 909ef25f
module iplookup
import IP, Maybe
Start :: *World -> (String, *World)
Start world = case lookupIPAddress "clean.cs.ru.nl" world of
(Just addr, world) = (toString addr, world)
(Nothing, world) = ("Could not lookup IP address", world)
\ No newline at end of file
This diff is collapsed.
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment