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: "/"))
	}
}