git.iko.soy/typeable/servant
on master help sign in
servant-jquery: set content type to application/json on POST
3b4df67bwo
servant-jquery/src/Servant/JQuery.hs+3−2
@@ -65,13 +65,14 @@ generateJS req = "\n" <>
65
65
66 dataBody =
66 dataBody =
67 if req ^. reqBody
67 if req ^. reqBody
68− then "\n , data: JSON.stringify(body)\n"
68+ then " , data: JSON.stringify(body)\n" <>
69+ " , contentType: 'application/json'\n"
69 else ""
70 else ""
70
71
71 reqheaders =
72 reqheaders =
72 if null hs
73 if null hs
73 then ""
74 then ""
74− else "\n , headers: { " ++ headersStr ++ " }\n"
75+ else " , headers: { " ++ headersStr ++ " }\n"
75
76
76 where headersStr = intercalate ", " $ map headerStr hs
77 where headersStr = intercalate ", " $ map headerStr hs
77 headerStr header = "\"" ++
78 headerStr header = "\"" ++