Yesodod로 JSON을 구문 분석 할 때 "충분하지 않은 바이트"진단

Question

다음 Yesod 코드를 사용하여 Json POST 요청의 응답 본문을 구문 분석하려고합니다. 내 자바 스크립트에서

import qualified Data.Aeson as J 
postMypageR = do 
    json <- parseJsonBody :: Handler (J.Result J.Value) 
    case json of 
     J.Error e -> error(show e) 
     J.Success code -> do 
     liftIO $ putStrLn $ show code 
     defaultLayout $ myWidget 

, 나는 xmlhttp.send(JSON.stringify({a:3, b:4}));

와 파이어 폭스 웹 콘솔은 POST로 전송되는 문자열이 {"a":3,"b":4} 것을 확인 보낼 수 있습니다.

내가 코드를 실행할 때, 나는 다음과 같은 오류 얻을 : 이런 일이 될 이유 ParseError {errorContexts = [\"demandInput\"], errorMessage = \"not enough bytes\", errorPosition = 1:1}"이

아무도 알고 있나요을? 내 GET 및 POST는 다른 페이지에서 모두 작동하지만, 지금까지 POST 본체를 실제로 본 내 앱의 유일한 장소입니다.

Answer 1

내 생각 엔 자바 스크립트 오류입니다 .... 보내기 전에 콘텐츠 길이를 설정 했습니까? data=JSON.stringify({a:3, b:4})