6 lines
207 B
Text
6 lines
207 B
Text
(: inets start)
|
|
(case (: httpc request '"http://lfe.github.io")
|
|
((tuple 'ok result)
|
|
(: io format '"Result: ~p" (list result)))
|
|
((tuple 'error reason)
|
|
(: io format '"Error: ~p~n" (list reason))))
|