# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1376047874 25200
# Node ID 566960135ea1ca4b096093f792c85c58f7f6a87d
# Parent  cb5108f62f93350e4cda5ea5506abf3311d2163b
Small bit of cleanup now that the string escaping bug is fixed.

diff -r cb5108f62f93 -r 566960135ea1 src/requests.tp
--- a/src/requests.tp	Fri Aug 09 04:17:27 2013 -0700
+++ b/src/requests.tp	Fri Aug 09 04:31:14 2013 -0700
@@ -14,9 +14,9 @@
 		#{
 			string <- {
 				//remove the second escaped quote, it will compile.
-				idStr <- "\"id\"" //;\"" . id . "\""
-				progStr <- "b" // "\"program\":\"" . prog . "\""
-				idStr . progStr
+				idStr <- "\"id\":\"" . id . "\""
+				progStr <- "\"program\":\"" . prog . "\""
+				"{" . idStr . "," . progStr . "}"
 			}
 		}
 	}