Problems with import rows on fusion tables

gistfile1.txt

This HTTP-conduit request:

     Request {
       host                 = "www.googleapis.com"
       port                 = 443
       secure               = True
       clientCertificates   = []
       requestHeaders       = [("Gdata-version","999"),("Authorization","OAuth ya29.1.AADtN_XQl-SEQTTY39WMzrIZE_Vks4cF5bjUJ2FQvv42KPPGtx8GgeEbjMl1RcQ")]
       path                 = "fusiontables/v1/tables/1R4x_Dqa0p5BoLBKX5sENGh4kkbGZhUVli_APIOw/import"
       queryString          = ""
       requestBody          = RequestBodyLBS "\"foob\",\"baz\"\n\"hello\",\"123\"\n\"there you are\\n text text text\\nhow will you display?\\nwhen forced in a cell?\\n\",\"456\"\n\"there you are\\n text text text\\nhow will you display?\\nwhen forced in a cell?\\nthere you are\\n text text text\\nhow will you display?\\nwhen forced in a cell?\\nthere you are\\n text text text\\nhow will you display?\\nwhen forced in a cell?\\nthere you are\\n text text text\\nhow will you display?\\nwhen forced in a cell?\\nthere you are\\n text text text\\nhow will you display?\\nwhen forced in a cell?\\nthere you are\\n text text text\\nhow will you display?\\nwhen forced in a cell?\\nthere you are\\n text text text\\nhow will you display?\\nwhen forced in a cell?\\nthere you are\\n text text text\\n\",\"456\"\n"
       method               = "POST"
       proxy                = Nothing
       rawBody              = False
       redirectCount        = 10
       responseTimeout      = Just (-3425)
     }

Results in:

     ScratchTest2: StatusCodeException (Status {statusCode = 500, statusMessage = "Internal Server Error"}) [("Content-Type","application/json; charset=UTF-8"),("Date","Sat, 30 Nov 2013 17:46:46 GMT"),("Expires","Sat, 30 Nov 2013 17:46:46 GMT"),("Cache-Control","private, max-age=0"),("X-Content-Type-Options","nosniff"),("X-Frame-Options","SAMEORIGIN"),("X-XSS-Protection","1; mode=block"),("Server","GSE"),("Alternate-Protocol","443:quic"),("Transfer-Encoding","chunked"),("X-Response-Body-Start","{\n \"error\": {\n  \"errors\": [\n   {\n    \"domain\": \"global\",\n    \"reason\": \"backendError\",\n    \"message\": \"Backend Error\"\n   }\n  ],\n  \"code\": 500,\n  \"message\": \"Backend Error\"\n }\n}\n")] (CJ {expose = []})