fixes the test failure

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.