<div dir="ltr"><div style="color:rgb(0,0,0);font-family:Calibri;font-size:16px">Here is an example (which worked once) I am trying to replicate in Racket. </div><div style="color:rgb(0,0,0);font-family:Calibri;font-size:16px"><br></div><div style="color:rgb(0,0,0);font-family:Calibri;font-size:16px">curl <a href="https://api.stripe.com/v1/customers" target="_blank">https://api.stripe.com/v1/customers</a> \</div><div style="color:rgb(0,0,0);font-family:Calibri;font-size:16px">   -u sk_test_BQokikJOvBiI2HlWgH4olfQ2: \</div><div style="color:rgb(0,0,0);font-family:Calibri;font-size:16px">   -d "description=Customer for <a href="mailto:test@example.com" target="_blank">test@example.com</a>" \</div><div style="color:rgb(0,0,0);font-family:Calibri;font-size:16px">   -d card=tok_14unJi2eZvKYlo2C804uRph5</div><div style="color:rgb(0,0,0);font-family:Calibri;font-size:16px"> </div><div style="color:rgb(0,0,0);font-family:Calibri;font-size:16px">Here is my Racket code that does a "similar" thing.</div><div style="color:rgb(0,0,0);font-family:Calibri;font-size:16px"><div><br class="">#lang racket</div><div> </div><div>(require net/http-client)</div><div>(require net/url)</div><div>(require net/uri-codec)</div><div>(require net/base64)</div><div>(require json)</div><div> </div><div>(define (authcode key)</div><div>  (base64-encode (string->bytes/utf-8 key)))</div><div> </div><div>(define (make-customer #:email email #:token token)</div><div> </div><div>  (define-values (status-code header inport)</div><div>    (http-sendrecv        </div><div>     "<a href="http://api.stripe.com/" target="_blank">api.stripe.com</a>"</div><div>     "/v1/customers"</div><div>     #:ssl? #t    </div><div>     #:method "POST"</div><div>     #:data (alist->form-urlencoded</div><div>             (list (cons 'card "token")))</div><div>     #:headers (list (format "Authorization: Basic ~a"</div><div>                             (authcode "sk_test_BQokikJOvBiI2HlWgH4olfQ2:")))))</div><div>  (read-json inport))</div><div> </div><div>(make-customer #:email "<a href="mailto:jondo@example.com" target="_blank">jondo@example.com</a>"</div><div>               #:token "tok_14unJi2eZvKYlo2C804uRph5" )</div><div> </div><div>The above results in</div><div> </div><div>'#hasheq((error</div><div>          .</div><div>          #hasheq((param . "\r\ncard")</div><div>                  (message</div><div>                   .</div><div>                   "Received unknown parameter: \r\ncard")</div><div>                  (type . "invalid_request_error"))))</div><div> </div><div>Questions:</div><div><br></div><div>1) Why does the server parses \r\nkey instead of just key when using Racket?</div><div><br></div><div>2) Is there a less verbose way to express the same thing?</div><div><br></div><div><br></div></div></div>