Inline getConnection.

src/Database/Esqueleto/Internal/Sql.hs

@@ -258,7 +258,7 @@ rawSelectSource :: ( SqlSelect a r
 rawSelectSource mode query = src
     where
       src = do
-        conn <- getConnection
+        conn <- SqlPersist R.ask
         return $ run conn C.$= massage
 
       run conn =
@@ -323,11 +323,6 @@ runSource :: MonadResourceBase m =>
 runSource src = C.runResourceT $ src C.$$ CL.consume
 
 
--- | Get current database 'Connection'.
-getConnection :: Monad m => SqlPersist m Connection
-getConnection = SqlPersist R.ask
-
-
 -- | Pretty prints a 'SqlQuery' into a SQL query.
 toRawSql :: SqlSelect a r => Mode -> Escape -> SqlQuery a -> (TLB.Builder, [PersistValue])
 toRawSql mode esc query =