From a3aba84ba8485328fc8444cc7d217c57ed0c8810 Mon Sep 17 00:00:00 2001
From: Diogo Biazus <diogob@gmail.com>
Date: Sun, 18 Oct 2015 20:10:26 -0400
Subject: [PATCH] Fixes linter suggestions

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

diff --git a/src/PostgREST/App.hs b/src/PostgREST/App.hs
index bcd0627e1..be2f366ea 100644
--- a/src/PostgREST/App.hs
+++ b/src/PostgREST/App.hs
@@ -178,8 +178,8 @@ app dbstructure conf reqBody req =
           return $ responseLBS status200 [jsonH]
                  (let body = fromMaybe emptyArray $ runIdentity <$> bodyJson in
                     if hasPrefer "return=jwt"
-                    then ("{\"token\":\"" <> (cs $ tokenJWT jwtSecret $ body) <> "\"}")
-                    else (cs $ encode $ body))
+                    then "{\"token\":\"" <> cs (tokenJWT jwtSecret body) <> "\"}"
+                    else cs $ encode body)
         else return $ responseLBS status404 [] ""
 
       -- check that proc exists