Mercurial > repos > tabletprog

diff samples/http.tp @ 153:075b1e71feff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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: "/"))
 	}
 }