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

git-svn-id: 2afc29ad-3112-4e41-907a-9359c7e6e986
parent 909ef25f
module iplookup
import IP, Maybe
Start :: *World -> (String, *World)
Start world = case lookupIPAddress "" 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
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment