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

-Wall police

Browse source
This commit is contained in:
Alp Mestanogullari 2014-12-09 15:39:41 +01:00
parent d760149ce0
commit c660b9cb0b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Servant/JQuery.hs
View file

@ -67,9 +67,9 @@ generateJS req = "\n" <>
reqheaders =
if null hs
then ""
else "\n , headers: { " ++ headersStr hs ++ " } }\n"
else "\n , headers: { " ++ headersStr ++ " } }\n"
where headersStr hs = intercalate ", " $ map headerStr hs
where headersStr = intercalate ", " $ map headerStr hs
headerStr hname = "\"" ++ hname ++ "\": header" ++ hname
fname = req ^. funcName