Mercurial > repos > tabletprog
diff 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 |
line wrap: on
line diff
--- a/samples/http.tp Fri Aug 09 20:12:04 2013 -0700 +++ b/samples/http.tp Fri Aug 09 21:01:11 2013 -0700 @@ -1,6 +1,10 @@ #{ - main <- { - cli <- http client: "rhope.retrodev.com" + main <- :args { + server <- "rhope.retrodev.com" + if: (args length) > 1 { + server <- args get: 1 + } + cli <- http client: server print: (string: (cli get: "/")) } }