haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Inline getConnection.

Browse Source
This commit is contained in:
Felipe Lessa 2012-09-05 19:19:28 -03:00
parent dad271a75a
commit f84304deb8
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Database/Esqueleto/Internal/Sql.hs
View File

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