From a779e9eb8bdbf7ebd7681b41a0ee201f57d459f4 Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Fri, 11 Mar 2016 23:45:05 -0800
Subject: [PATCH] Batch the sql commands to set local vars

---
 src/PostgREST/Middleware.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/PostgREST/Middleware.hs b/src/PostgREST/Middleware.hs
index 27edbee33..5e3ef2a60 100644
--- a/src/PostgREST/Middleware.hs
+++ b/src/PostgREST/Middleware.hs
@@ -3,6 +3,8 @@
 
 module PostgREST.Middleware where
 
+import           Control.Monad                 (unless)
+import qualified Data.ByteString               as BS
 import qualified Data.HashMap.Strict           as M
 import           Data.Maybe                    (fromMaybe)
 import           Data.Text
@@ -40,7 +42,8 @@ runWithClaims conf time app req = do
         if M.null claims && not (null tokenStr)
           then clientErr "Invalid JWT"
           else do
-            mapM_ H.sql $ claimsToSQL claims
+            let cmdBatch = mconcat $ claimsToSQL claims
+            unless (BS.null cmdBatch) (H.sql cmdBatch)
             app req
   where
     hdrs = requestHeaders req