annotate samples/http.tp @ 153:075b1e71feff

A little more work on the HTTP module
author Mike Pavone <pavone@retrodev.com>
date Fri, 09 Aug 2013 21:01:11 -0700
parents 7f442b3e4448
children 55e0dca7d3d7
rev   line source
pavone@149 1 #{
pavone@153 2 main <- :args {
pavone@153 3 server <- "rhope.retrodev.com"
pavone@153 4 if: (args length) > 1 {
pavone@153 5 server <- args get: 1
pavone@153 6 }
pavone@153 7 cli <- http client: server
pavone@149 8 print: (string: (cli get: "/"))
pavone@149 9 }
pavone@149 10 }