put quotes around header name

This commit is contained in:
Alp Mestanogullari 2014-12-08 13:34:26 +01:00
parent 3d467cfab2
commit d760149ce0

View File

@ -70,7 +70,7 @@ generateJS req = "\n" <>
else "\n , headers: { " ++ headersStr hs ++ " } }\n"
where headersStr hs = intercalate ", " $ map headerStr hs
headerStr hname = hname ++ ": header" ++ hname
headerStr hname = "\"" ++ hname ++ "\": header" ++ hname
fname = req ^. funcName
method = req ^. reqMethod