From c660b9cb0b4fe1c7c2bc342806b3b24f419c480a Mon Sep 17 00:00:00 2001
From: Alp Mestanogullari <alpmestan@gmail.com>
Date: Tue, 9 Dec 2014 15:39:41 +0100
Subject: [PATCH] -Wall police

---
 src/Servant/JQuery.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Servant/JQuery.hs b/src/Servant/JQuery.hs
index 1bf25f63..b6453ecf 100644
--- a/src/Servant/JQuery.hs
+++ b/src/Servant/JQuery.hs
@@ -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