Fixed bug with dict going off

tenfensw · Oct 17, 2019 · 3bb65a8 · 3bb65a8
1 parent 1181928
commit 3bb65a8
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/toolatra_http.tcl b/toolatra_http.tcl
@@ -22,8 +22,19 @@ proc _toolatra_http_evalrequest {type url} {
 	return ?
 }
 
+
 proc _toolatra_server_finderror {errc} {
-	set errorCodes [dict create 200 OK 201 Created 202 Accepted 204 No Content 302 "Moved Temporarily" 301 "Moved Permenently" 500 "Internal Server Error" 400 "Bad Request" 404 "Not Found" 403 Forbidden]
+	set errorCodes [dict create 200 OK \
+								201 Created \
+								202 Accepted \
+								204 {No Content} \
+								302 {Moved Temporarily} \
+								301 {Moved Permenently} \
+								500 {Internal Server Error} \
+								400 {Bad Request} \
+								404 {Not Found} \
+								403 Forbidden]
+
 	if {! [dict exists $errorCodes $errc]} {
 		error "HTTP error code not supported by Toolatra: $errc"
 	}
@@ -132,6 +143,7 @@ proc _toolatra_tclext_rmempty {listing} {
 	return $result
 }
 
+
 proc _toolatra_server_processrequest {sock addr time} {
 	global _toolatra_http_response
 	set _toolatra_http_response [dict create sender $addr when $time]