git.iko.soy/typeable/servant
on master help sign in
put quotes around header name
d760149Alp Mestanogullari
src/Servant/JQuery.hs+1−1
@@ -70,7 +70,7 @@ generateJS req = "\n" <>
70 else "\n , headers: { " ++ headersStr hs ++ " } }\n"
70 else "\n , headers: { " ++ headersStr hs ++ " } }\n"
71
71
72 where headersStr hs = intercalate ", " $ map headerStr hs
72 where headersStr hs = intercalate ", " $ map headerStr hs
73− headerStr hname = hname ++ ": header" ++ hname
73+ headerStr hname = "\"" ++ hname ++ "\": header" ++ hname
74
74
75 fname = req ^. funcName
75 fname = req ^. funcName
76 method = req ^. reqMethod
76 method = req ^. reqMethod