Mercurial > repos > icfp2013

diff src/requests.tp @ 49:8409af16d6e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sleep for 20 seconds when we receive a 429 response
author Mike Pavone <pavone@retrodev.com>
date Sun, 11 Aug 2013 04:35:02 -0700
parents 855c05c9cae1
children
line wrap: on
line diff
--- a/src/requests.tp	Sun Aug 11 04:03:51 2013 -0700
+++ b/src/requests.tp	Sun Aug 11 04:35:02 2013 -0700
@@ -109,6 +109,7 @@
 				_message <- decoded get: "message" withDefault: ""
 				#{
 					status <- { "error" }
+					httpCode <- { _code }
 					message <- { _message }
 					string <- {
 						"Error: " . _message
@@ -119,8 +120,17 @@
 				}
 			}
 		} else: {
-			#{print <- print: "HTTP response gave error! code was: " . _code . "\n"}
-
+			#{
+				status <- { "error" }
+				httpCode <- { _code }
+				message <- { "HTTP response gave error! code was: " . _code . "\n" }
+				string <- {
+					"Error: " . message
+				}
+				print <- {
+					print: string . "\n"
+				}
+			}
 		}
 	}
 
@@ -164,6 +174,7 @@
 				_message <- decoded get: "message" withDefault: ""
 				#{
 					status <- { "error" }
+					httpCode <- { _code }
 					message <- { _message }
 					string <- {
 						"Error: " . _message
@@ -174,7 +185,17 @@
 				}
 			}} // end if
 		} else: {
-			#{print <- print: "HTTP response gave error! code was: " . _code . "\n"}
+			#{
+				status <- { "error" }
+				httpCode <- { _code }
+				message <- { "HTTP response gave error! code was: " . _code . "\n" }
+				string <- {
+					"Error: " . message
+				}
+				print <- {
+					print: string . "\n"
+				}
+			}
 		}
 	}