7 lines
207 B
Text
7 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))))
|