Mercurial > repos > tabletprog
view 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 source
#{ main <- :args { server <- "rhope.retrodev.com" if: (args length) > 1 { server <- args get: 1 } cli <- http client: server print: (string: (cli get: "/")) } }