From 338f5a3c47ceedd0a981a2ce378ae975aad617af Mon Sep 17 00:00:00 2001
From: Matt Parsons <parsonsmatt@gmail.com>
Date: Wed, 21 Jun 2017 11:26:47 -0600
Subject: [PATCH] fixes the test failure

---
 src/Database/Esqueleto/Internal/Sql.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/Database/Esqueleto/Internal/Sql.hs b/src/Database/Esqueleto/Internal/Sql.hs
index 2f46ad0..ad6d833 100644
--- a/src/Database/Esqueleto/Internal/Sql.hs
+++ b/src/Database/Esqueleto/Internal/Sql.hs
@@ -782,14 +782,14 @@ selectSource :: ( SqlSelect a r
                 , MonadResource m )
              => SqlQuery a
              -> C.Source (SqlPersistT m) r
--- selectSource query = do
---   res <- lift $ rawSelectSource SELECT query
---   (key, src) <- lift $ allocateAcquire res
---   src
---   lift $ release key
-selectSource query = join . lift $ do
-  res <- rawSelectSource SELECT query
-  snd <$> allocateAcquire res
+selectSource query = do
+  res <- lift $ rawSelectSource SELECT query
+  (key, src) <- lift $ allocateAcquire res
+  src
+  lift $ release key
+--  selectSource query = join . lift $ do
+--    res <- rawSelectSource SELECT query
+--    snd <$> allocateAcquire res
 
 -- | Execute an @esqueleto@ @SELECT@ query inside @persistent@'s
 -- 'SqlPersistT' monad and return a list of rows.