Mercurial > repos > tabletprog
view samples/http.tp @ 154:6e579a75a0a9
Add JSON parser and sample
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 10 Aug 2013 11:51:47 -0700 |
parents | 075b1e71feff |
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: "/")) } }