eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

put quotes around header name

Browse source
This commit is contained in:
Alp Mestanogullari 2014-12-08 13:34:26 +01:00
parent 3d467cfab2
commit d760149ce0
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Servant/JQuery.hs
View file

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