git.iko.soy/typeable/servant
on master help sign in
Merge pull request #150 from haskell-servant/pingu/jquery-post-content-type-take2

servant-jquery: set content type to application/json on POST

commit490a84cda1b55509c0753218ddeb0acc8fd45563 authorChristian Marie <christian@ponies.io> dateThu 9 Jul 2015, 10:58 (11 years ago) parent9c50804f6196ae
1 file changed+3−2
compare with master
unifiedsplit
servant-jquery/src/Servant/JQuery.hs+3−2
servant-jquery/src/Servant/JQuery.hs+3−2
@@ -65,13 +65,14 @@ generateJS req = "\n" <>
6565
6666 dataBody =
6767 if req ^. reqBody
68− then "\n , data: JSON.stringify(body)\n"
68+ then " , data: JSON.stringify(body)\n" <>
69+ " , contentType: 'application/json'\n"
6970 else ""
7071
7172 reqheaders =
7273 if null hs
7374 then ""
74− else "\n , headers: { " ++ headersStr ++ " }\n"
75+ else " , headers: { " ++ headersStr ++ " }\n"
7576
7677 where headersStr = intercalate ", " $ map headerStr hs
7778 headerStr header = "\"" ++