Estoy usando unAPI de Google biblioteca paraRaqueta para intentar actualizar un Google Calendar. (La API está incompleta, así que la estoy ampliando a medida que avanzo).

Parece que tengo problemas para agregar eventos a un calendario usando la llamada put de events.insert. El código que hace el put se ve así:

(define (insert-events calendar-id
                       event
                       #:token [t #f]
                       #:max-attendees [max-attendees #f]
                       #:send-notifications [send-notifications #f]
                       #:supports-attachments [supports-attachments #f])
  (json-api-post (string->url
                  (format
                   "https://www.googleapis.com/calendar/v3/calendars/~a/events"
                   (form-urlencoded-encode calendar-id)))
                  event
                  #:token t))


(define (json-api-post u b
                       #:token [t #f]
                       #:headers [headers '()])
  (define b* (jsexpr->bytes b))
  (let retry ([t t]
              [retry-counter 0])
    (parse-json-response
     (POST-string u b* (if t (cons (token->authorization-header t) headers) headers))
     retry
     t
     retry-counter)))

(define (POST-string u b headers)
  (port->string (post-pure-port u b headers)))

Sin embargo, no importa cómo use la llamada, siempre recibo un error 400 con el mensaje: "Falta hora de finalización". Me fuiesta pregunta para asegurarme de que estaba enviando mi solicitud correctamente. Lo que parezco ser. Como referencia, el objeto JSON que estoy enviando es:

{
 "end": {
  "dateTime": "2016-05-30T14:00:00-04:00"
 },
 "start": {
  "dateTime": "2016-05-30T13:00:00-04:00"
 }
}

Además, para asegurarme de que estaba accediendo correctamente a la clave correcta y la identificación del calendario, configuré un servidor echo para mi máquina local y cambié la url degoogle.com alocalhost, mi respuesta parece normal:

POST /<Calendar-Id-Redacted> HTTP/1.1
Host: localhost
User-Agent: Racket/6.5.0.5 (net/http-client)
Content-Length: 116
Authorization: Bearer <Key-Redacted>

{
 "end": {
  "dateTime": "2016-05-30T14:00:00-04:00"
 },
 "start": {
  "dateTime": "2016-05-30T13:00:00-04:00"
 }
}

Parece que estoy haciendo todo bien. E incluso si hubiera un error en mi código de Racket, enviar exactamente el mismo objeto JSON a través de la consola web del desarrollador de Google parece funcionar según lo previsto. Entonces, ¿por qué el envío de este POST en particular no funciona?