Mercurial > repos > icfp2013

comparison 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
comparison
equal deleted inserted replaced
48:855c05c9cae1 49:8409af16d6e5
107 } 107 }
108 } else: { 108 } else: {
109 _message <- decoded get: "message" withDefault: "" 109 _message <- decoded get: "message" withDefault: ""
110 #{ 110 #{
111 status <- { "error" } 111 status <- { "error" }
112 httpCode <- { _code }
112 message <- { _message } 113 message <- { _message }
113 string <- { 114 string <- {
114 "Error: " . _message 115 "Error: " . _message
115 } 116 }
116 print <- { 117 print <- {
117 print: string . "\n" 118 print: string . "\n"
118 } 119 }
119 } 120 }
120 } 121 }
121 } else: { 122 } else: {
122 #{print <- print: "HTTP response gave error! code was: " . _code . "\n"} 123 #{
123 124 status <- { "error" }
125 httpCode <- { _code }
126 message <- { "HTTP response gave error! code was: " . _code . "\n" }
127 string <- {
128 "Error: " . message
129 }
130 print <- {
131 print: string . "\n"
132 }
133 }
124 } 134 }
125 } 135 }
126 136
127 guessResponse <- :httpResp { 137 guessResponse <- :httpResp {
128 _code <- httpResp statusCode 138 _code <- httpResp statusCode
162 } 172 }
163 } else: { 173 } else: {
164 _message <- decoded get: "message" withDefault: "" 174 _message <- decoded get: "message" withDefault: ""
165 #{ 175 #{
166 status <- { "error" } 176 status <- { "error" }
177 httpCode <- { _code }
167 message <- { _message } 178 message <- { _message }
168 string <- { 179 string <- {
169 "Error: " . _message 180 "Error: " . _message
170 } 181 }
171 print <- { 182 print <- {
172 print: string . "\n" 183 print: string . "\n"
173 } 184 }
174 } 185 }
175 }} // end if 186 }} // end if
176 } else: { 187 } else: {
177 #{print <- print: "HTTP response gave error! code was: " . _code . "\n"} 188 #{
189 status <- { "error" }
190 httpCode <- { _code }
191 message <- { "HTTP response gave error! code was: " . _code . "\n" }
192 string <- {
193 "Error: " . message
194 }
195 print <- {
196 print: string . "\n"
197 }
198 }
178 } 199 }
179 } 200 }
180 201
181 _problem <- :decoded { 202 _problem <- :decoded {
182 _id <- decoded get: "id" withDefault: -1 203 _id <- decoded get: "id" withDefault: -1