git.iko.soy/typeable/servant
on master help sign in
-Wall police
commitc660b9cb0b4fe1c7c2bc342806b3b24f419c480a authorAlp Mestanogullari <alpmestan@gmail.com> dateTue 9 Dec 2014, 15:39 (12 years ago) parentd760149
1 file changed+2−2
src/Servant/JQuery.hs+2−2
src/Servant/JQuery.hs+2−2
@@ -67,9 +67,9 @@ generateJS req = "\n" <>
6767 reqheaders =
6868 if null hs
6969 then ""
70− else "\n , headers: { " ++ headersStr hs ++ " } }\n"
70+ else "\n , headers: { " ++ headersStr ++ " } }\n"
7171
72− where headersStr hs = intercalate ", " $ map headerStr hs
72+ where headersStr = intercalate ", " $ map headerStr hs
7373 headerStr hname = "\"" ++ hname ++ "\": header" ++ hname
7474
7575 fname = req ^. funcName